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SSFAN  is  a  steady  state  hydraulic  flow  and  pressure  analysis  computer 
program.  Its  primary  purpose  is  to  analyze  non-linear  resistance  aircraft 
hydraulic  systems.  The  program  handles  complex  flow  networks  containing  flow 
and/or  pressure  discontinuities  such  as  unbalanced  area  actuators  and  check 
valves.  Solutions  for  a  combination  of  simultaneously  operating  subsystems 
are  easily  obtained.  The  program  is  designed  using  a  building  block  approach 
so  that  new  component  or  element  models  may  be  added  with  minimum  change  to 


the  main  program.  The  solution  method  is  a  Matrix  type,  using  iteration  to 
obtain  a  final  flow  and  pressure  balance.  The  program  internally  corrects 
viscosities  for  pressure,  determines  whether  flow  is  laminar,  transition  or 
turbulent  for  use  of  appropriate  resistance  factors  and  corrects  reservoir 
pressure  for  altitude  effects.  A  Quasi-transient  section  has  been  added  to 
allow  multiple  steady  state  calculations  when  simulating  subsystem  operations. 
The  data  is  stored  and  can  be  printed  in  either  tabular  form  or  computer  plot 
form. 

The  program  was  written  with  the  aircraft  hydraulic  system  designer  in 
mind.  The  terminology  and  units  are  commonly  used  terms  such  as  fluid 
viscosity  in  centistokes,  temperatures  in  degrees  Fahrenheit  and  flow  in 
gallons  per  minute.  Conversion  of  units  for  calculation  is  accomplished 
internally  in  the  program. 
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This  Steady  State  Flow  Analysis  (SSFAN)  Computer  Program  Technical  Description 
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F 


Accession  For 


NT  IS  GRAAI 
DDC  TAB 
Unannounced 
Justification 


By. 


Fi.it  ".‘J'Ui.io.n/ _ 

A-'L  A1  -MMty  Coles 
i  A .  a i i  ''.nd /or 


Dist 


ft 


rial 


iii 


TABLE  OF  CONTENTS 


SECTION  TITLE  PAGE 

I  INTRODUCTION  .  1 

II  TECHNICAL  SUMMARY  .  3 


III 


IV 


V 


SSFAN  MAIN  PROGRAM  -  SSFAN  . 

3.1  Description  of  SSFAN  Operation  . 

3.2  Math  Model  . 

3.3  Assumptions  . 

3.4  Computations  . 

3.5  Approximations  . 

3.6  Limitations  . 

3.7  SSFAN  Variable  Names  . 

3.8  SSFAN  Main  Program  Listing  . 

DATA  INPUT  . 

4.1  Main  Program  Data  Input  . 

4.1.1  Description  of  Data  Input  . 

4.1.2  Computations  . 

4.1.3  Error  Messages  . 

4.1.4  Main  Program  Data  Input  Section  Variable 

Names  . 

4.1.5  Main  Program  Data  Input  Section  Listing  .  . 

4.1.6  BLOSS  Subroutine  Variable  Names  . 

4.1.7  BLOSS  Subroutine  Listing  . 


SYSTEM  ASSEMBLY  AND  INITIAL  CALCULATION  . 

5.1  System  Assembly  Subroutines  . 

5.1.1  SDSORT  and  SORTP  Subroutines  . 

5. 1.1.1  SDSORT  and  SORTP  Variable  Names  .  . 

5. 1.1. 2  SDSORT  and  SORTP  Subroutine  Listings 

5.1.2  BUILD  Subroutine  . 

5. 1.2.1  BUILD  Subroutine  Variable  Names  .  . 

5. 1.2. 2  BUILD  Subroutine  Listing  . 

5.1.3  SC0NST1 ,  SC0NST2  and  SC0NST3  Subroutines  .  . 

5. 1.3.1  SCONSTl ,  SC0NST2  and  SC0NST3  Vari¬ 

able  Names  . 

5. 1.3. 2  SCONSTl,  SC0NST2  and  SC0NST3  Sub- 


5.1.4 


SPORT 


routine  Listings 
Subroutine  . 


5. 1.4.1  Description  of  Operation 


5. 1.4. 2  SPORT  Variable  Names 


5. 1.4.3  SPORT  Subroutine  Listing 


5.2  Calculation  of  Static  Fluid  Resistance  Coefficients 
5.2.1  Static  Resistance  Functions  . 

5. 2. 1.1  Description  of  Function  Usage  .  .  . 

5. 2. 1.2  Assumptions  . 

5. 2. 1.3  Computations  . 

5. 2. 1.4  Approximations  . 

5. 2. 1.5  Limitations  . 

5. 2. 1.6  Function  -  SFRICL-SFRICT-SKSB-SKBS 

Variable  Names  . 


5.2. 1.7  SFRICL-SFRICT-SKSB-SKBS  Program 
Listing . . 


7 

9 

18 

31 

32 
32 

32 

33 
37 

43 

50 

51 
53 
59 

61 

62 

65 

66 

67 

69 

74 

75 

76 
78 
81 
84 

91 

92 

98 

102 

102 

106 

108 

It  if 
1 1  1 

111 

112 

112 

125 

125 


127 


v 


TABLE  OF  CONTENTS  (CONT) 


SECTION 

VI 


TITLE  PAGE 

CALCULATION  AND  ELEMENT  SUBROUTINES  .  129 

6.1  Calculation  Subroutines  .  130 

6.1.1  CALC  Subroutine .  132 

6. 1.1.1  Math  Model  . .  132 

6. 1.1. 2  Assumptions  .  134 

6. 1.1. 3  Computations  .  134 

6. 1.1. 4  Approximations  .  138 

6. 1.1. 5  Limitations  .  138 

6. 1.1. 6  CALC  Variable  Names  .  139 

6. 1.1. 7  CALC  Subroutine  Listing  ....  142 

6.1.2  TTL  Subroutine .  146 

6. 1.2.1  Math  Model .  146 

6. 1.2. 2  Assumptions  .  ....  150 

6. 1.2. 3  Computations  .  150 

6. 1.2.4  Approximations  .  150 

6.1. 2.5  Limitations  .  150 

6.1. 2.6  TTL  Variable  Listing  .  151 

6.1. 2.7  TTL  Subroutine  Listing  .  153 

6.2  Dynamic  Element  Subroutines  .  155 

6.2.1  Subroutine  DCKV3  .  156 

6. 2. 1.1  Math  Model .  156 

6. 2. 1.2  Assumptions  .  157 

6. 2. 1.3  Computations  .  157 

6. 2. 1.4  Approximations  .  157 

6. 2. 1.5  Limitations  .  . .  157 

6.2.2  Entry  DR1W31 .  157 

6. 2. 2.1  Math  Model .  158 

6. 2.2.2  Assumptions  ...  .  158 

6. 2. 2. 3  Computations  .  158 

6. 2. 2. 4  Approximations  .  159 

6. 2. 2. 5  Limitations  .  159 

6.2.3  Entry  DVRE33 .  160 

6. 2. 3.1  Math  Model .  160 

6. 2. 3. 2  Assumptions  .  161 

6. 2. 3. 3  Computations  .  161 

6. 2. 3.4  Approximations  .  161 

6. 2. 3. 5  Limitations  .  161 

6. 2. 3.6  DCKV3-DR1W31-DVRE33  Variable  Names  162 

6. 2. 3. 7  DCKV3-DR1W31-DVRE33  Subroutine  Listing  164 

6.2.4  Subroutine  DACT4  .  166 

6. 2. 4.1  Math  Model .  166 

6. 2. 4. 2  Assumptions  .  162 


vi 


TABLE  OF  CONTENTS  (CONT) 


SECTION  TITLE  PAGE 


6. 2. 4. 3  Computations  . 

6. 2. 4. 4  Approximations .  387 

6. 2.4. 5  Limitations  .  167 

6. 2. 4. 6  DACT4  Variable  Names  .  168 

6.2.4. 7  DACT4  Subroutine  Listing  .  170 

6.2.5  Subroutine  DPUM5  . .  172 

6. 2. 5.1  Math  Model .  172 

6. 2. 5. 2  Assumptions  .  •  172 

6. 2. 5. 3  Computations  .  172 

6. 2. 5. 4  Approximations  .  174 

6. 2. 5. 5  Limitations  .  174 

6. 2. 5. 6  DPUM5  Variable  Names  .  175 

6.2.5. 7  DPUM5  Subroutine  Listing  .  178 

6.2.6  Subroutine  DFIL6 .  180 

6. 2. 6.1  Math  Model .  I80 

6. 2. 6. 2  Assumptions  .  181 

6. 2. 6. 3  Computations  .  . .  1®! 

6. 2.6.4  Approximations . ' .  181 

6. 2. 6. 5  Limitations.  .  181 

6. 2. 6. 6  DFIL6  Variable  Names  .  182 

6.2.6. 7  DFIL6  Subroutine  Listing  .  184 

6.2.7  Subroutine  DACC7  .  185 

6. 2. 7.1  DACC7  Variable  Names  .  . . 187 

6.2. 7.2  DACC7  Subroutine  Listing  .  ICS 

6.2.8  Subroutine  DRESV .  1  39 

6. 2. 8.1  Math  Model .  '90 

6. 2. 8. 2  Approximations  .  100 

6. 2. 8. 3  Computations  .  190 

6. 2. 8. 4  Assumptions  .  100 

6. 2. 8. 5  Limitations  .  190 

6. 2. 8. 6  DRESV  Variable  Names  .  191 

6. 2. 8. 7  DRESV  Subroutine  Listing  .  193 

6.2.9  DPEC10  Subroutine  .  193 

6. 2.9.1  Math  Model .  195 

6. 2. 9. 2  Assumptions .  195 

6. 2.9. 3  Computations .  195 

6. 2. 9. 4  Approximations  .  195 

6. 2. 9. 5  Limitations  .......  .  196 

6. 2. 9. 6  DPEC10  Variable  Names .  196 

6. 2.9. 7  DPEC10  Subroutine  Listing  .  198 

6.2.10  Subroutine  DTEE24  .  199 

6.2.10.1  Math  Model .  199 

6.2.10.2  Assumptions  .  200 

6.2.10.3  Computations  .  200 

6.2.10.4  Approximations  .  200 

6.2.10.5  Limitations  .  200 


TAB1.E  OF  CONTENTS  (CONT) 


SECTION  TITLE  PAGE 

6.2.11  Entry  DCR025  ....  .  201 

6.2.11.1  DTEE24-DCR025  Variable  Names  ...  202 

6.2.11.2  DTEE24-DCR025  Subroutine  Listing  .  204 

6.2.12  Subroutine  DVS034  .  ...  206 

6.2.12.1  Math  Model .  206 

6.2.12.2  Assumptions  .  208 

6.2.12.3  Computations  .  . .  208 

6.2.12.4  Approximations  .  ...  208 

6.2.12.5  Limitations  .  208 

6.2.12.6  DVS034  Variable  Names  .  209 

6.2.12.7  DVS034  Subroutine  Listing  ....  211 

6.2.13  Subroutine  DMTR8  .  214 

6.2.13.1  Math  Model .  214 

6.2.13.2  Assumptions  .  214 

6.2.13.3  Computations  .  214 

6.2.13.4  Approximations  .  214 

6.2.13.5  Limitations  .  214 

6.2.13.6  DMTR8  Variable  Names  .  215 

6.2.13.7  DMTR8  Subroutine  Listing  .  217 

VII  OUTPUT .  219 

7.1  OPUT4  Subroutine  .  219 

7.2  OPUT3  Subroutine  .  219 

7.3  0PUT2  Subroutine  .  219 

7.4  Main  Program  Output  Data .  224 

7.5  Quasi-Transient  Data  Output  .  224 

7.6  0PUT4  Subroutine  Listing  .  229 

7.7  0PUT3  Subroutine  Listing  .  230 

7.8  0PUT2  Subroutine  Listing  .  232 

VIII  UTILITY  SUBROUTINES  .  233 

8.1  INTERP  Subroutines  .  233 

8.1.1  Solution  Method .  233 

8.1.2  Assumptions .  234 

8.1.3  Computations .  234 

8.1.4  Approximations .  234 

8.1.5  Limitations . .  234 

8.1.6  INTERP  Variable  Names  .  235 

8.1.7  INTERP  Subroutine  Listing  .  236 

8.2  DISER1  Subroutine  .  237 

8.2.1  Solution  Method .  237 

8.2.2  Assumptions .  237 

8.2.3  Computations .  237 

8.2.4  Approximations .  237 

8.2.5  Limitations .  237 

8.2.6  DISER1  Variable  Names  .  238 

8.2.7  DISER1  Subroutine  Listing  .  239 

8.3  LAGRAN  Subroutine . . .  240 

8.3.1  Math  Model .  240 

8.3.2  Assumptions  .  . .  241 

8.3.3  Computation .  241 

8.3.4  Approximations . . .  242 

8.3.5  Limitations  .  ........  242 

8.3.6  LAGRAN  Variable  Names  .  242 

8.3.7  LAGRAN  Subroutine  Listing  .  243 


viii 


TABLE  OF  CONTENTS  (CONT) 


SECTION  TITLE  PACE 


8.4  SIMULT  Subroutine  .  . .  245 

8.4.1  Solution  Method .  245 

8.4.2  Assumptions .  246 

8.4.3  Computation .  246 

8.4.4  Approximations .  248 

8.4.5  Limitations  .  .....  248 

8.4.6  SIMULT  Variable  Names . 248 

8.4.7  SIMULT  Subroutine  Listing  .  250 

8.5  VISD  Subroutine .  253 

8.5.1  Math  Model .  253 

8.5.2  Assumptions .  253 

8.5.3  Computations . 253 

8.5.4  Approximations .  253 

8.5.5  Limitations .  253 

8.5.6  VISD  Variable  Names .  254 

8.5.7  VISD  Subroutine  Listing .  255 

8.6  DARR  Subroutine .  2^ 

8.6.1  MaLh  Model .  256 

8.6.2  Assumptions .  2^ 

8.6.3  Computations .  256 

8.6.4  Approximations .  256 

8.6.5  Limitations .  256 

8.6.6  DARR  Variable  Names .  257 

8.6.7  DARR  Subroutine  Listing .  258 

8.7  VCHEK  Subroutine  .  259 

8.7.1  VCHEK  Variable  Names . 260 

8.7.2  VCHEK  Subroutine  Listing  .  261 

8.8  ACTCHEK  Subroutine  .  262 

8.8.1  ACTCHEK  Variable  Names  .  263 

8.8.2  ACTCHEK  Subroutine  Listing  .  264 

8.9  FLOCHEK  Subroutine  .  265 

8.9.1  FLOCHEK  Variable  Names  .  .  266 

8.9.2  FLOCHEK  Subroutine  Listing  .  267 

8.10  MTRCHK  Subroutine  .  268 

8.10.1  MTRCHK  Variable  Names  .  269 

8.10.2  MTRCHK  Subroutine  Listing  .  270 

8.11  Subroutine  GRAPH2  and  SCALED  .  271 

8.11.1  0RAPH2  Variable  Names  .  271 

8.11.2  GRAPH 2  Subroutine  Listing  .  273 


« 


TABLE  OF  CONTENTS  (CONT) 


SECTION  TITLE  PAGE 

8.12  QTCALC  Subroutine  .  276 

8.  12. 1  Math  Model  .  276 

8.12.2  Computations  .  277 

8.12.3  QTCALC  Variable  Names  .  278 

8.12.4  QTCALC  Subroutine  Listing  .  280 

IX  REFERENCES .  283 

APPENDIX  A .  285 

APPENDIX  B .  309 

APPENDIX  C .  321 


x 


LIST  OF  FIGURES 


FIGURE  TITLE  PAGE 

1  SSFAN  Flow  Chart  .  4 

2  SSFAN  Main  Program  Flow  Diagram  .  8 

3  SSFAN  Sample  Case  Number  1-2  Actuator  Subsystem  ...  11 

4  System  Schematic  Diagram  For  SSFAN  Sample  Case  Number  1  3.2 

5  ILEP  Array  for  SSFAN  Sample  Case  Number  1 .  13 

6  PQL  Array  for  SSFAN  Sample  Case  Number  1  .  15 

7  Partial  BLEG  Array  for  SSFAN  Sample  Case  Number  1.  .  .  .  16 

8  Junction  Points,  Elements,  Branch  Legs  and  Branch  Points  20 

9  Tee  Fitting  Illustration  .  21 

10  Generalized  Data  Input  Flow  Chart . 45 

11  Summary  of  Element  Data  Card  Input . 46 

12  Example  of  Data  Cards  Printout .  48 

13  Data  Input  Flow  Diagram .  52 

14  CONNECT  Array  -  Data  Summary . 54 

15  BRANCHP  Array  -  Data  Summary . 55 

16  CONNECT  Array  -  Example  Data . 56 

17  AFBP  Array  -  Example  Data .  56 

18  BRANCHP  Array  -  Example  Data .  57 

19  BLOSS  Flow  Diagram .  58 

20  Illegal  Element  Number  Output .  59 

21  Illegal  Format  Output  .  60 

22  System  Assembly  Flow  Diagram  .  68 

23  CONS  and  AFBPS  Array  -  Before  and  After  Leg  Assembly  .  .  20 

24  BPS  Array .  ?1 

25  Error  Message  -  No  element  type  5  or  type  7  available.  .  22 

26  BRANCHP  Array  -  After  Leg  Assembly  .  23 

27  SDSORT  -  SORTP  Flow  Diagram .  74 

28  Subroutine  BUILD  Flow  Diagram  .  79 

29  Leg  Number  and  Pressure  Point  Number  Assembly  ....  80 

30  SPORT  Subroutine  General  Flow  Chart  .  103 

31  Laminer  Flow  Resistance . 1.15 

32  Example  for  Summation  of  Kg  Values . 116 

33  Sudden  Expansion  .  120 

34  Resistance  Due  to  Sudden  Enlargements  and  Contractions  .  121 

35  Sudden  Contractions  .  122 

36  General  Solution  Procedure  Flow  Chart  for  the  Calcula-  131 

tion  Subroutines  . 

37  CALC  Generalized  Flow  Diagram . 133 

38  CALC  Subroutine  Operation . 135 

39  TTL  Subroutine  Descriptional  Flow  Chart  .  147 

40  Check  Valve . 156 

41  1-Way  Restrictor  .  158 

42  Relief  Valve . 160 

43  Simple  Actuator . 166 

44  Variable  Delivery  Pump . 173 


LIST  OF  FIGURES 


FIGURE  TITLE  PAGE 

45  Filter .  180 

46  Element  Type  7-Accumulator .  185 

47  Flow  Through  Reservoir . . .  189 

48  Tee .  199 

49  Type  34  Valve .  206 

50  Type  35  Valve .  207 

51  Type  36  Valve .  207 

52  Flow  Type  37  and  38  Regulator  and  Orifice  Sizer  .....  207 

53  Hydraulic  Motor .  214 

54  Output  -  SSFAN  Title  and  Data  Cards  1-6 .  220 

55  Data  From  OPUT3  Subroutine .  221 

56  Data  From  OPUT2  Subroutine . .  222 

57  Example  SSFAN  Sample  Case  Number  1  Element  Input  Data  - 

Cards  7  and  On .  223 

58  Quasi-Transient  Tabulated  Data  .  225 

59  Quasi-Transient  Pressure  Versus  Time  Computer  Plot  ....  226 

60  Quasi-Transient  Flow  Versus  Time  Computer  Plot .  227 

61  Quasi-Transient  Actuator  Position  Versus  Time  Computer  Plot  228 


xii 


SECTION  I 


INTRODUCTION 

The  SSFAN  computer  program  is  currently  mechanized  for  the  CDC  6500/6600 
computer.  It  is  coded  in  Fortran  IV  and  is  used  to  simulate  aircraft  hydrau¬ 
lic  fluid  flow  systems,  which  typically  consist  of  multiple  branches.  The 
flow  is  assumed  to  be  one  dimensional  and  steady  state.  The  effects  of  fluid 
viscosity  and  density  changes  with  temperature  and  pressure  are  included  in 
calculations.  Altitude  effects  are  also  included.  The  output  of  SSFAN  is 

predicted  values  of  flow  rate,  pressure,  subsystem  operation  time, 

) 

etc. 

Some  of  the  element  models  comprising  the  program  were  derived  using 
empirical  data  to  describe  the  flow  pressure-drop  relationship.  However, 
the  data  available  is  generally  for  one  test  temperature  (room  temperature), 
so  that  an  extrapolation  to  extremely  high  or  low  temperatures  may  decrease 
the  accuracy  of  the  results.  Other  element  models  were  derived  from  the 
theoretical  mathematical  equations.  In  some  cases,  the  models  contain  correc¬ 
tion  factors  based  on  previous  test  data. 

SSFAN  has  been  updated  to  extend  its  calculation  capability  and  reduced 
in  size  by  simplifying  the  overall  organization  of  the  program.  The  addition 
of  the  Ouasi-transient  model  allows  prediction  of  flow,  pressure  and  actuator 
stroke  versus  time.  The  capability  to  input  various  fluid  temperatures  at 
components  giving  a  temperature  distribution  throughout  the  svstem  has  been 
added . 

A  computer  graph  subroutine  has  been  added  to  plot  the  quasi-transient 
data.  Data  may  also  be  printed  out  in  tabular  form. 
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SECTION  II 
TECHNICAL  SUMMARY 

Input  data  cards  containing  the  detailed  element  (component)  data  and 
system  location  identifiers  (junction  numbers)  for  each  element  in  the  system 
are  established.  The  data  is  read  into  2  storage  arrays.  Some  data,  such  as 
tubing  bends,  are  calculated  for  energy  loss  coefficients  as  the  data  is  read 
in,  and  stored  in  the  array  with  tube  data.  Fluid  properties  and  aircraft 
altitude  are  also  input.  The  altitude  is  used  for  reservoir  pressure  correction. 
The  general  SSFAN  flow  chart  is  shown  in  Figure  1  . 

The  pump  or  pumps  are  the  first  components  in  the  system,  unless  an 
accumulator  is  designated  as  the  pressure  source.  A  search  routine  then 
searches  the  data  arrays  and  builds  the  system  by  legs  until  the  total 
system  is  built.  If  the  input  data  is  erroneous  so  that  system  continuity 
cannot  be  established,  error  messages  are  output  and  the  run  stops. 

As  the  system  is  being  built,  resistance  coefficients  are  calculated 
for  each  element  and  summed  for  a  hydraulic  system  leg.  They  are  stored  in 
a  leg  array  for  the  duration  of  the  run. 

Viscosity  at  atmospheric  pressure  is  input  to  the  program  and  is 
corrected  initially  for  pressure.  Resistance  coefficient  are  established 
for  all  branch  legs  in  the  system  from  which  the  branch  leg  conductances 
are  calculated.  These  resistance  coefficients  are  established,  based  on 
whether  the  flow  in  the  branch  leg  is  in  the  laminar,  transition  or  turbulent 
flow  regime. 

Branch  points  are  established  from  an  array  which  contains  the  active 
branch  legs  in  the  system.  The  system  is  first  balanced  using  an  initial 
guessed  flow. 
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FIGURE  1 

SSFAN  FLOW  CHART 
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The  general  solution  technique  is  based  on  an  iterative  method  using  a 
matrix  to  solve  for  pressures  at  branch  points  in  the  system.  Each  branch 
leg  resistance  is  described  by  a  nonlinear  equation  as  a  function  of  flow  in 
the  leg.  This  equation  is  solved  for  the  leg  pressure  drop  which  is  then 
used  to  obtain  a  leg  conductance  constant  at  the  current  flow  rate.  Finally 
conductances  are  placed  in  the  matrix  for  a  new  solution  and  the  iteration 
is  continued  until  two  successive  solutions  of  the  matrix  provide  flow 
balances  for  all  branch  legs  within  .001  gpm. 

The  SSFAN  program  may  be  run  in  a  quasi-transient  mode.  With  an 
input  of  time  interval,  time  step  (optional)  and  some  additional  element 
data,  the  quasi-transient  model  may  be  used  to  predict  pressures,  flows, 
subsystem  operating  times,  etc.  If  a  time  step  is  not  input  a  default 
value  of  100  steps  is  used  which  will  provide  a  full  set  of  data  points 
for  the  graph  subroutine. 
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SECTION  III 
SSFAN  MAIN  PROGRAM 

The  Main  Program  is  responsible  for  the  overall  program  setup  and 
execution.  It  controls  the  entire  operation  of  the  SSFAN  program  from  data 
initialization  to  output.  Any  error  conditions  recognized  by  the  program 
terminates  that  section  of  the  program  after  printing  out  error  messages. 

The  DATE  subroutine  is  called,  and  the  data  is  read -in  via  the  input 
section  of  the  main  program.  When  the  input  is  complete,  a  viscosity  - 
pressure  correction  factor  is  calculated  for  the  hydraulic  fluid,  and 
viscosity  and  ambient  pressure  are  computed  for  the  system  temperature  and 
altitude. 

After  these  parameters  are  found,  system  assembly  begins.  During 
the  course  of  leg  building  static  resistance  coefficients  are  calculated 
for  each  leg  in  the  system.  A  check  is  made  to  determine  whether  the 
program  is  being  run  in  the  quasi-transient  mode.  If  not,  the  system  is 
solved  for  pressures  and  flows  and  results  are  printed  according  to  the 
selected  output.  If  the  program  is  run  in  the  quasi-transient  mode,  the 
initial  flow  balance  is  printed  out  for  all  junctions,  but  only  the 
quasi-transient  user  selected  output  is  printed  for  the  remainder  of 
the  run. 

See  Figure  2  for  the  SSFAN  Main  Program  Flow  Diagram. 
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Figure  2 

SSFAN  Main  Program 
Flow  Diagram 
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3. 1  Description  of  SSFAN  Operation 

A  call  is  made  to  the  computer  for  the  Julian  date,  which  is  stored 
in  BLK8.  The  first  major  section  of  the  SSFAN  program  is  the  data  input 
section  which  reads  in  the  data  cards.  If  an  error  occurs  on  input, 

IERROR  will  be  reset  to  a  value  other  than  zero  and  the  program  is  terminated. 
A  call  is  then  made  to  VISD  which  returns  the  viscosity  and  density  values 
in  BLK1.  The  title  page  of  the  SSFAN  program  is  output  with  the  call  to 
the  subroutine  0PUT4.  If,  because  of  erroneous  data  points  a  negative 
viscosity  should  be  calculated,  the  program  will  stop  and  print  out  an 
error  message.  The  user  may  select  to  have  his  data  deck  printed  out  exactly 
as  read  in  to  check  for  errors  (see  Output  Options).  The  ambient  atmosphere 
pressure  for  the  input  altitude  is  calculated  and  put  in  BLK1  under  the 
name  of  PAMB. 

The  second  major  part  of  the  program  begins  with  the  call  of  the  SDSORT 
subroutine  to  set  up  arrays  for  leg  building.  BUILD  subroutine  assembles 
the  legs.  If  all  the  legs  are  assembled  with  no  errors  generated,  pressure 
points  are  assigned  to  the  ends  of  the  legs.  The  SDSORT  and  BUILD  subroutines, 
called  from  the  Main  Program,  control  the  entire  assembly  phase  in  the  SSFAN 
program. 

The  calculation  of  the  system  pressures  and  flows  in  the  next  major 
part  of  SSFAN  is  totally  controlled  by  the  CALC  subroutine.  Once  the  solution 
phase  is  finished  the  information  is  output  through  the  user  selected  output. 

Three  arrays  that  are  critical  to  the  solution  procedure  of  SSFAN 
are  BLEG,  ILEP,  and  PQL.  All  of  these  arrays  are  generated  by  the  assembly 
phase. 
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BLEG  and  PQL  are  updated  in  the  computation  section  and  contain  the  final 
solutions  to  be  used  by  the  Output  subroutines.  A  knowledge  of  the 
information  contained  in  these  arrays  is  essential  to  an  understanding  of 
the  SSFAN  program  operation.  SSFAN  Sample  Case  Number  1,  a  two  actuator 
subsystem,  is  used  to  explain  how  the  elements  are  entered  and  arranged 
in  BLEG,  ILEP  and  PQL,  Figure  3  . 

The  ports  of  every  element  have  a  junction  number  assigned  to  them. 

The  assembly  phase  of  SSFAN  matches  junction  numbers  of  the  system  elements 
until  a  leg  in  the  system  is  assembled.  The  leg  is  identified  with  a  leg 
number  and  assigned  pressure  point  numbers  to  the  upstream  and  downstream 
ends.  The  legs  are  built  from  pressure  point  to  pressure  point.  These 
are  the  points  at  which  pressures  are  calculated  and  printed  out  for 

the  system.  Elements  that  contain  pressure  points  in  the  SSFAN  program  are 

1 

pumps,  accumulators,  reservoirs,  actuators,  tees,  crosses,  valves  and  motors. 
Figure  4  is  a  schematic  diagram  of  how  leg  numbers  and  pressure  points  are 
assigned  by  the  assembly  phase  of  SSFAN  to  the  SSFAN  Sample  Case  Number  1. 

From  the  assignment  of  leg  numbers  and  pressure  points,  the  ILEP  array 
is  built.  The  pressure  points  at  the  up  and  downstream  locations  of  the 
leg  are  written  into  columns  one  and  two,  respectively.  An  ILEP  array 
for  the  system  in  Figure  3  is  shown  in  Figure  5  . 
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ILEP  Array 

SSFAN  Sample  Case  Number 

1 

Thus  the  ILEP  array  contains  the  description  of 

how  the  system  is 

assembled . 

The  PQL  array  has  as 

many  rows  as  there  are  pressure  points  in  the  system 

For  example,  Case  Number  1 

,  Figure  4  shows  a  total 

of  20  pressure  points. 

Column  one  of  the  PQL  has 

the  values  of  pressure  at 

these  points. 

Pressure  points  in  a  system  are  termed  as  being  either  constant  pressure 

points  or  branch  points. 

A  constant  pressure  point 

must  be  at  an  end  point 

in  a  system,  but  all  end  points  need  not  be  constant  pressure  points.  The 
values  of  pressure  at  constant  pressure  points  are  treated  as  constants  for  a 
solution  during  an  iteration,  but  are  updated  for  the  next  iteration. 


13 


m 

a 

A  branch  point  thus  is  a  pressure  point  that  is  calculated  and  it  may  also  be 
an  end  point  or  a  point  at  which  two  or  more  flows  meet. 

Column  two  of  the  PQL  array  contains  the  flow  loss  or  gain  at  a 
branch  point  or  end  point  due  to  a  dynamic  element.  The  element  type  number 
for  the  pressure  point  is  in  column  three.  Columns  4,  5,  6  and  7  contain 
the  junction  numbers  of  the  pressure  point  element.  Column  8  contains 
the  fluid  temperature  at  the  pressure  point.  Figure  6  gives  the  initial  POL 
array  for  the  SSFAN  Sample  Case  Number  1.  Initial  constant  pressures  are  set 
at  three  thousand  PSI  for  the  pump  pressure  port  and  fifty  psi  for  the  reservoir 
return  and  suction  ports.  The  branch  points  are  all  minus  ones.  The  values 
for  all  the  pressure  points  are  updated  as  the  solution  procedure  iterates 
to  the  final  answers.  All  the  terms  in  column  two  are  initially  set  to  zero 
but  these  too  are  updated  in  the  iteration  process. 
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FIGURE  6 

PQL  Array  for  SSFAN  Sample  Case  No.  1 


The  BLEG  array  contains  the  parameters  for  the  solution  procedure.  Each 
row  in  BLEG  represents  a  leg  in  the  system.  The  columns  contain  the  informa¬ 
tion  particular  to  each  leg.  Some  of  the  data  in  the  columns  of  BLEG  for  the 
Sample  Case  Number  1  are  presented  in  Figure  7. 
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PARTIAL  BLEG  ARRAY  FOR 
SSFAN  SAMPLE  CASE  NUMBER  1 
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FIGURE  7  (Continued) 


3.2  Math  Model 


The  approach  to  the  SSFAN  method  of  analysis  is  based  on  the  principle 

of  conservation  of  energy  which  results  in  an  energy  balance  of: 

Energy  at  Energy  _  Energy  _  Energy  _  Energy  at 
Section  1  Added  Lost  Extracted  Section  2 


In  the  direction  of  flow  from  1  to  2  for  steady  state  flow  of  incompress¬ 
ible  fluids  in  which  the  change  in  internal  energy  is  negligible,  this  may  be 
written  in  a  form  of  the  Bernoulli  theorem  or  equation  as: 


Pi  Vi2  P2  V22 

__ —  +  _ —  +  z2  (i) 

e2  2g 


+  —  +  Zi  +ha  -  hl  -  he  = 


Further  simplifications  may  be  made  if  the  density  is  assumed  to  be  the 
same  at  points  1  and  2. 

therefore  =  P 

In  an  aircraft  hydraulic  system  where  the  lines  are  relatively  small,  the 
pump(s)  centrally  located  and  for  steady  state  flow  operation  under  high  pressure, 
the  difference  in  elevation  between  points  1  and  2  (Z-^  -  Z2)  may  be  ignored. 
However  the  reference  altitude  for  the  low  pressure  pump  suction  system  can 
not  be  ignored  as  noted  in  the  reservoir  mathematical  analysis. 

The  energy  added  (HA)  is  considered  to  be  in  the  form  of  a  pressure  rise  in 
the  system  at  a  pump.  Energy  lost  (H^)  is  the  frictional  and  viscous  pressure 
drops  due  to  flow  and  energy  extracted  (Hg)  is  at  an  actuated  subsystem  moving 
against  a  resistance  such  as  a  flight  control  surface  actuator.  This  may  also 
be  equated  to  equivalent  pressure  loss  in  the  system.  It  should  be  noted  that 
in  the  case  of  a  flight  control  surface,  an  aiding  load  on  the  actuator  actually 
adds  energy  to  the  system  and  is  accounted  for  in  this  analysis.  The  method  of 
analysis  outlined  below  is  similar  to  Reference  (1). 


Rewriting  the  Bernoulli  equation  considering  the  above  conditions. 


Pi 
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P2 

v22 

e 

+  2g  ‘  H12 

P 
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(2) 

or 

pvi2 

fv22 

h 

+  -  P12 

a 

P2 

+  - 

(3) 

2g 

2g 

Where:  P  *  pressure  PSI) 

p  =  weight  density  (LB/lfP) 

V  =  fluid  velocity  (IN/SBC) 
g  =  gravitational  acceleration  (IN/SECySEC) 

Pl2  *  *  friction  loss,  pump  pressure  rise, 

gain  or  loss  of  actuators  (PSI) 

A  common  term  for  hydraulic  flow  is 

Q  in  gallons  per  minute  (GFM) 

To  establish  a  simple  relationship  between  the  resistance  from  1  to  2  and  flow 
the  resistance  is  defined  as  Rj2»  where  the  total  loss  in  pressure  from  1  to  2 
is  R12Q  (4) 

where  Rj2  =  resistance  (PSI-MIN/GAL) 

Then  equations  (3)  and  (4)  may  be  combined: 


**12 


=T_  e(V22  -  Vj  ) 


+  AP 


Q  2g 

The  velocity  term  may  also  be  written  as 


12 


(5) 


Q 

I 


with  V  (IN/SBC) 
Q  (GPM) 

A  (IN) 
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Since  =  Q2  then  the  first  term  in  the  brackets  of  equation  (5)  drops  out 
and  leaves 


Q 


This  term  then  gives  a  linear  relationship  between  P12  and  Q  required  for 
the  Matrix  solution. 

To  correlate  this  to  the  system  being  analyzed,  the  following  definitions 
are  used.  A  system  is  described  as  shown  in  Figure  8. 


FIGURE  8 

Junction  Points,  Elements,  Branch  Legs  and  Branch  Points 
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The  actual  branch  point  in  the  system  may  best  be  seen  by  the  illustra¬ 
tion  of  the  tee  fitting,  which  is  used  as  a  branch  point  element,  (see  Figure  9) 


THIS 


NOT  THIS 


ANALYTICAL  REPRESENTATION 


FIGURE  9 

Tee  Fitting  Illustration 

Figure  2  shows  a  branch  leg  with  4  elements  (E1,E2,E3,E4)  and  5  junction 
points  (5.10,15,20,25).  Also  in  Figure  7  t  a  system  with  4  branch  legs 
(LI,  12, L3,l4)  and  2  branch  points  (45,50).  If  a  junction  point  is  connected  to 
only  one  other  junction  point,  it  is  an  end  point. 
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The  individual  element  resistances  *re  summed  ±iong  the  branch  legs  to 
give  a  total  resistance.  A  portion  of  a  branch  point  type  element  resistance  is 
allotted  to  each  of  its  connecting  branch  legs.  If  a  junction  point  is  connected 
to  only  one  other  junction  point,  it  is  an  end  point. 

The  fluid  conductance  in  a  system  is  defined  as  the  inverse  of  the  resistance 


where  G^2  =  conductance  between  points  1  and  2 

Equation  (1)  may  be  rewritten  as 

Q  =  G12  AP12 


(6) 


(7) 


Equation  (7)  is  now  in  the  form  required  for  the  Matrix  solution  sub¬ 
routine  SIMULT  of  Section  ^.8.  Equation  (?)  states  that  the  flow,  Q,  in  a 
branch  leg  of  a  hydraulic  system  equals  the  conductance  (Gj2)  of  the  leg  times 
the  pressure  difference  between  the  upstream  and  downstream  branch  points  (1  and  2). 

In  the  current  SSFAN  hydraulic  system  analysis,  branch  points  are  considered 
to  be  located  in  tees,  crosses,  actuators  and  valves.  End  points  are  established 
at  pumps,  accumulators,  reservoirs  and  motors. 

The  net  flow  at  any  branch  point  must  be  equal  to  zero  to  satisfy  the 
continuity  equation. 

This  requirement  is  satisfied  at  the  Ith  point  if: 

J  Gij(Pi  -  Pj  ±  Pij)  -  H  -  Qik  =  0  (8) 

K 

where 

Pj  *  pressure  at  branch  pointl 
Pj  *  pressure  at  branch  point  J 

Pij  «  A  pressure  rise  or  loss  (from  a  pump  or  actuator) 
in  branch  leg  IJ 


Qjj,  *  Fix®8  flow  in  branch  leg  IR 
connected  to  branch  point  I 


When  looking  at  any  branch  point  I,  the  flows  are  summed  for  all  branch 
legs  connected  to  I  not  having  fixed  flow  rates  (legs  IJ)  plus  branch  legs 
connected  to  I  having  fixed  flow  rates  (legs  IK) 

The  signs  of  Pjj  and  Qjj  are  positive  or  negative  depending  on  the  direction 
of  pressure  loss  or  gain  and  flow  loss  or  gain.  The  convention  established 
is  that  the  sign  is  positive  if  there  is  a  pressure  gain  in  a  leg  or  a  flow 
gain  at  a  branch  point. 

The  set  of  equations  derived  from  equations  (7)  and  (8)  for  a  complex 
hydraulic  flow  network  are  ®t  up  in  the  SIMULT  solution  Matrix  as  follows. 


P11  812 
*21  «22 


gNI 


where  N  total  number  of  branch  points 
M  =  total  number  of  end  points 
HvK 

*n  ’  h  °ij 

gIJ  *  -°ij 


N 

:I  55  ±  GIJ  *  PIJ  +  K  — 

J»1 

J  K 


♦  ST 


UNd-l 
L  K 


JIL 


PL  -  PU 


(9) 
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Pj  =  pressure  at  a  branch  point 

Pl  =  fixed  pressure  at  an  end  point 

Gaussian  elimination  with  pivoting  is  used  to  solve  the  Matrix  system  of 
equations  for  P^  to  Pjq. 

The  solution  of  the  set  of  equations  is  accomplished  in  4  basic  steps: 

(1)  An  initial  guess  is  made  for  values  of  the  flow  rates  in 
all  the  branch  legs  with  non-fixed  flow  rates  of  the  system. 
Experience  has  shown  that  this  initial  guess  is  not  critical 
for  the  SSFAN  solution  and  this  guess  is  made  internally  in 
the  program. 

(2)  In  each  branch  leg  with  a  non-fixed  flow  rate  the  current 
estimate  of  the  flow  rate  in  that  leg  is  used  to  compute 
the  conductance  of  the  branch  leg.  The  leg  pressure  drop 
(resistance)  is  calculated  from  a  general  equation  of  the  form 

DP(R)  =  Kx  +  KgQ  +  KjQ1*75  +  fyQ2  (10) 

where  the  resistance  coefficients  were  defined  when  the  branch 
legs  were  assembled,  and  Q  is  the  current  flow  estimate. 

DP  —  pressure  drop  (PSI) 

Q  =  flow  (GPM) 

a  resistance  coefficient 

DP's  are  calculated  for  all  branch  legs  in  the  system  from 
which  a  current  value  of  G  is  calculated 

G  =  1  or  1  (11) 

R  DP 

(3)  These  values  of  G  are  placed  in  the  Matrix  and  the  Matrix 
is  solved  for  pressures  at  all  branch  points. 
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(4)  The  branch  point  pressures  are  then  used  to  solve  for  a 


new  flow  rate  where 

Qnew  *  CPj  -  Pj  +  Aplj)  GIJ  (12) 

Using  this  calculated  value  of  Qj^  along  with  QqlD’ 
a  new  value  of  Qjj  is  calculated  by  the  following  equation 

QIJ  =  qold  +  Qnew  (13) 

2 


Q0ld  *  previous  flow  value 
®NEW  =  latest  fl°w  value 
Qjj  =r  the  new  guess  flow  rate-after  an 
iteration  Qjj  becomes  Qqld 

Steps  2  through  4  are  repeated  until  successive  estimates 
in  all  branch  legs  agree  within  the  tolerance  specified. 
From  experience  to  date,  one  finds  that  equation  (13)  is  the  most  optimal 
for  updating  the  flow  guess. 


Convergence  Criteria 

The  solution  for  flows  in  all  the  branch  legs  are  final  when  all  the 
previous  flows  and  the  latest  calculated  flows  are  within  a  specified  tolerance. 
SSFAN  tests  the  convergence  of  flows  for  two  conditions;  (1)  Flows  less  than 
one  gpn  and  (2)  flows  greater  than  1  gpm.  If  both  the  old  and  new  flows  are 
less  than  one  gpm  equation  (14)  must  be  satisfied. 

Qold  ~  Qnew  —  *001 


For  flow  greater  than  or  equal  to  one  gpm  equation  (15) 

Qold  -  Qnew  ^ 


Qbig 


.001 


qbig  e  LARG£R  of  qold  or  qnew 


(15) 
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If  equations  (14)  or  (15)  are  not  satisfied  in  each  branch  leg  of  the  system 
for  a  specified  number  of  iterations,  the  solution  process  will  stop  and  an 
error  message  will  be  printed  out  indicating  the  failure  to  converge  due  to 
excessive  iterations. 
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The  c.iku!  ..jus  .  >_g  in  Main  1  -ok  ran  pertain  to  the  /LUTr.h  :  actor 

for  a  viscosity-pressure  correction  ana  a  ?AMB  term  for  the  pressure  at  the 
system  altitude.  The  derivation  of  FLUIDK  is  found  ir.  Appendix  B  of  this,  manual. 
The  description  of  a  pressure-altitude  equation  results  from  an  application 
of  altitude-temperature  and  pressure-temperature  relationships  for  air,  which 
is  assumed  to  be  a  perfect  gas.  Reference  (6)  is  the  source  for  this  equation 
which  for  completeness  is  derived  below. 

The  change  in  temperature  with  altitude  is  constant  over  certain  ranges. 

If  the  altitude  above  ground  level  is  called  h,  then  a  constant  termed  the 
lapse  rate  ,\  is  defined  by  the  following  equation: 

f  "  ±  *  (16) 

Where:  T  =  Temperature 
h  =  Height 
A  =  Lapse  Rate 

The  positive  sign  in  Equation  (L6)  is  used  when  the  temperature  increases  with 
increasing  altitude  and  the  negative  sign  is  used  when  the  temperature 
decreases  for  increasing  altitude. 

The  atmospheric  pressure  decreases  with  increasing  altitude  and  may  be 
expressed  as  follows: 

fh  =  "pg  (17) 

2 

Where:  p  *  Pressure  (lb/ft  ) 
h  *  Altitude  (ft) 

3 

p  ■  Density  (slug/ft  ) 

2 

g  ”  Gravitation  Constant  (ft/sec  ) 


Assume  that  air  obeys  the  perfect  gas  equation  of  state  (18) ; 
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-  =  RT  (18) 


Where:  p  =  Pressure  (lb/ft“) 


T  =  Temperature  (°R) 

R  =  Gas  Constant  (ft  lb^/(slug) (°R)) 

3 

p  =  Density  (slug/ft  ) 

Then  substituting  Equation  (18)  into  Equation  (17)  one  obtains: 


dp  _  dli 


g  (19) 


Further  combining  Equation  (16)  with  (19)  gives: 

df  -  +  £  f  (20) 

Integrating  both  sides  of  Equation  (20)  between  the  limits  P  to  P  and  T  to  T 

o  o 

one  gets  a  solution  of  the  form: 


(*.) 


■T  XR/ g 


=  1-  (21) 

T 

o 


The  relation  between  pressure  and  temperature  for  a  perfect  gas  can  be  written 


(hi 


,(n-])/n 


Comparing  exponents  in  Equations  (21)  and  (22)  one  is  able  to  write  an  expression 
for  the  lapse  rate  X  as  being: 

_  iSlAlfc  (23) 

X  =  +  nR  v  ' 

Solving  equation  (22)  for  n-  ^  below: 

n 


108  Po 
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From  the  ICAD  standard  atmosphere  at  sea  level 
To  =  518.688  °F 
P0  =  2116.22  LB/FT2 
at  10,000  FT 

T  =  483.026  °F 
P  =  1455.33  LB/FT2 

Substituting  these  values  into  equation  (24)  one  finds  that  n  =  1.23496. 
Letting  g  =  32.2  FT/SEC2  and  R  =  1,716  FT2/SEC2  °R,  A  from  equation  (23)  has 
a  value  of  approximately  .00357°R/FT. 

Equation  (16)  may  be  integrated  to  obtain  a  relation  between  altitude  and 
temperature ; 

T  -  T  =  +  A  (h  -  h  )  (25) 

o  —  o 

From  Equations  (21) and  (25) pressure  and  altitude  are  both  expressed  in  terms 
of  temperature.  An  equation  may  now  be  written  by  combining  (21)  and  (25)  to 
solve  for  the  pressure  at  altitude  in  terms  of  temperature  and  altitude* 

Solve  Equation  (21)  in  terms  of  T  and  substitute  into  Equation  (25). 
Dividing  by  +  A  one  obtains: 


h  -  h  =  +  - — 

o  —  A 


(k) 


AR/g 

-1 


(26 ) 


To  simplify  Equation  (26)  let  h^  =  0  altitude,  and  then  rearranging,  the 
equation  now  reads: 


or,  rewriting  (26),  using  the  minus  sign  for  the  lapse  rate  to  mean  decreasing 


temperature  with  increasing  altitude  one  may  write: 


AR/g 


^  \ 


(28) 


29 


Further  simplification  of  Equation  (28}  yields: 


At  sea  level  with  h  =0 
o 

p  =  14.7  lb. /in2 
o  * 

T  =  519°R 
o 

X  =  .00357  °R/ft 
R  =  1716  ft2/ (sec2)  (° R) 
g  =  32.2  ft/sec“ 

Equation  (29)  now  becomes: 

P  =  [1.6676(1  -  h/145378.) J5,256 


(29  ) 


(30) 


Equation  (30)  is  used  in  the  Main  Program  SFAli  to  calculate  the  presst *e  at 
any  altitude  between  0  and  36,089  ft.  The  P  value  is  stored  in  the  labeled 
common  named  BLK1  under  the  variable  name  PAMB.  This  makes  the  pressure  value 
available  to  the  component  subroutines  that  are  altitude  dependent  such  as 
the  reservoir  subroutine. 

Because  ot  tin-  abrupt  slope  changes  of  the  temperature-altitude  relation¬ 
ship,  it  is  not  pu-.s<ble  to  express  the  atmospheric  characteristics  as  a 
continuous  function.  Oifteiout  equations  apply  in  each  thermal  layer.  Eo 
altitudes  of  36,0b'i  to  <>5,000  tt.  the  atmospheric  temperature  is  constant. 

To  obtain  a  pressure  altitude  equation  at  these  altitudes  integrate  equation  (1 9) 
as  follows: 


or 


t^-h 
R  RT 


(31) 


(32) 
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where 

P 

pressure 

at  altitude  PSI 

I>1  = 

pressure 

at  base  altitude  PSI 

h  = 

altitude 

(FT) 

^  = 

altitude 

at  base  layer  (FT) 

Solving  equation  (31)  for  P: 


=  Pl  e  [ 


g(hi-h) 


RT 


(33) 


using  the  ICAD  standard  atmosphere 

9  l 

Pl  =  472.679  LB/FT  *  =  3.2835  PSI 

hi  =  36,089  FT 

R  =  1716  FT2/SEC2  °R 

T  =  389.988  °R 

g  =32.2  FT/SEC2 

p  =  3.2825  *  EXP (4 . 806  x  10~5  (36089-h)}  (34) 

Equation  (34)  is  used  in  SSFAN  for  the  pressure-altitude  equation  for 
36,089  to  65,000  FT. 

To  define  a  relation  for  the  65,000  to  150,000  FT  region  of  the  atmosphere, 
the  orthogonal  polynominal  method  was  used  to  fit  least-squares  polynomials 
to  data.  A  third  degree  equation  (35)  was  derived  from  the  1962  standard 
atmosphere  data  to  obtain  a  reasonable  correlation  to  the  model  atmosphere. 

PAMB  =  [ (867. 4 2375-1. 990498E-02(h)+l . 549619E-07 (h) J-4 . 046556E-13 (h) 3 ]/144. 

In  equations  (30),  (34),  (35)  h  represents  the  altitude.  For  any  altitudes 
greater  chan  150,000  ft.  a  pressure  of  0  PSI  is  used  in  SSFAN  for  the  value 
of  PAMB. 


3 . 3  Assumptions 

Not  applicable. 


(35) 
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3.4  Computation 


The  logic  involved  in  SSFAN  concerns  the  selecting  of  the  proper  output 
subroutines  chosen  by  the  user.  The  desired  output  types,  which  are  read  in 
on  the  sixth  data  card,  are  stored  in  the  PRINT  array.  The  type  output 
number  is  converted  to  an  integer  called  IPRINT.  A  computed  Go  To  statement 
will  then  select  the  proper  output  corresponding  to  the  output  type. 

3 . 5  Approximations 

The  equations  for  viscosity-pressure  correction  and  ambient  pressure 

are  approximations  as  any  attempt  to  mathematically  formulate  a  physical 

system  would  be.  The  pressure  at  altitude  equations  (30),  (34),  (35)  are 

2 

based  on  a  constant  gravitational  value  32.2  ft/sec  for  all  altitudes.  Air 
is  also  assumed  to  be  a  perfect  gas.  These  approximations  will  yield  slightly 
lower  pressure  values  at  high  altitudes  when  compared  with  the  standard 
atmosphere  tables. 

3.6  Limitations 
Not  applicable. 
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3.7 


SSFAN  Variable  Names 


Variable 

Description 

Dimensions 

BLEG 

General  purpose  array 

— 

BPS 

Dynamic  element  junction  storage  array  for 
sorting 

— 

BRANCHP 

Dynamic  element  data  storage  array 

— 

CALC1 

Matrix  of  coefficients 

— 

CALC  2 

NU  matrix  of  constants 

— 

CONNECT 

Static  element  data  storage  array 

— 

CONS 

Static  element  junction  storage  array 
for  sorting 

— 

DDENS 

Array  of  weight  density  values  input 
by  user 

LB/FT3 

DENS 

Fluid  weight  density  at  atmospheric 
pressure 

LB/FT3 

DTEMP 

Array  of  temperature  values  corresponding 
to  the  DDENS  array 

oF 

D100 

Weight  density  at  100°F 

LB /FT3 

EQD1 

Average  diameter  of  leg 

IN 

EQD2 

Orifice  diameter 

IN 

ERR 

Error  indicator 

— 

FLU IDF 

Viscosity-pressure  correction  factor  at 

100°F 

— 

FLUIDK 

Viscosity-pressure  correction  factor  at 
fluid  temperature 

— 

FTYPE 

Array  containing  the  system  title  and 
fluid  name 

— 

I 

Integer  counter 

— 

ICENT 

Array  containing  number  of  non-zero  elements 
in  each  column  of  CALC1 

— 
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3-7  (Continued) 

Variable  Description  Dimensions 

ICOL  Array  containing  column  location  of 

each  non-zero  element  of  CALC1 

IDES  Storage  array  of  element  names 

IDIAG  Array  which  identifies  which  columns  of 

CALC1  contain  positive  conductance  values 

IERROR  Error  indicator 

0  =  No  program  errors 
+  =  Program  termination 

ILEP  Array  of  leg  numbers  with  up  and  downstream 

pressure  points 

INEC  Array  which  stores  the  second  appearance 

of  a  negative  conductance  value 

IORDER  Array  giving  pivot  selection  based  on 

min-row  min-column  criteria 

IP0L2  Integer  counter 

i RENT  Array  containing  number  of  non-zero  elements 

in  each  row  of  CALC1 

ITER  Iteration  count 

TTY  Storage  array  of  element  types 

TTYPE  Integer  element  type 

j  Integer  counter  --  < 

CENT  Array  identifying  the  number  of  non-zero 

entries  in  each  column  of  CALC1 

JCOL  Array  identifying  the  non-zero  filled  columns 

of  CALC1;  the  rows  correspond  to  the  rows  of 
CALC1;  elements  in  each  row  correspond  to 
column  number  in  each  row  of  CALC1 

JEM.  Total  number  of  pressure  points  in  the  system 

JNEC  Array  which  identifies  which  column  in  CALC1 

contains  the  first  appearance  of  a  negative 
conductance  value  in  CALC1  array 
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(Continued.; 


Variable 

Description 

TRKNT 

Array  identifying  the  number  of  non-zero 
entries  in  each  row  of  CALCJ 

J1 

Element  type  indicator 

J_ 

Element  type  indicator 

J3 

Element  type  indicator 

K 

Integer  counter 

M 

Integer  counter 

'!L 

Total  number  of  legs 

N 

Number  of  data  cards  for  one  element  and 
number  of  fixed  pressure  points 

NAB 

Total  number  of  floating  branch  points 

NBP 

Total  number  of  elements  in  BRANCHP  array 

NBP2 

Tota-'  length  of  BRANCHP  array 

NC 

Total  number  of  elements  in  CONNECT  array 

NCT 

Integer  indicator  for  number  of  data  cards 

NC2 

Total  length  of  CONNECT  array 

NJ3 

Integer  counter 

NL 

Total  length  of  BLEG  &  ILEP  array 

NPQ 

Total  number  of  rows  in  PQL  array 

NPQL2 

Array  containing  row  location  in  BRANCHP 
array  of  element  with  fixed  pressure 

NVIS 

Total  number  of  viscosity  data  points  input 
by  user 

Nl-6 

Length  of  QT16  array 

N17 

Length  of  QT17  array 

Dimensions 
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3.7  (Continued) 


Variable 

Description 

Dimensions 

N18 

Length  of  QT18  array 

— 

N19 

Length  of  QT19  array 

— 

PAMB 

Atmospheric  ambient  pressure 

PSI 

PQL 

Array  containing  calculated  pressures, 
element  types  and  junction  numbers 

— 

PQL2 

Array  of  constant  pressure  point  junction 

— 

PRINT 

Array  containing  output  types 

— 

QT15 

Storage  array  for  quasi-transient  temperatures 

— 

QT16 

Storage  array  for  additional  element 
which  used  in  quasi-transient  calculations 

— 

QT17 

Storage  array  for  quasi-transient  valve  data 

— 

QT18 

Storage  array  for  quasi-transienr  valve  data 

— 

TEMP 

Fluid  temperature 

°  F 

TEMP  F 

Final  fluid  temperature 

°F 

TEMPINC 

Fluid  temperature  increment 

°F 

TEMPI 4 

Fluid  temperature  at  branch  point  array 

°F 

TODAY 

Current  Julian  date 

— 

TYPE 

Element  type 

— 

vise 

Fluid  viscosity  at  atmospheric  pressure 

CENTI STOKES 

VTEMP 

Temperature  data  values  for  viscosity  input 
by  user 

°F 

wise 

Viscosity  data  values  input  by  user 

CENTI STOKES 

V100 

Fluid  viscosity  at  100°F 

CENTI STOKES 
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3.8 


MAIN  PROGRAM  SSFAN  LISTING 


PROGRAM  SSFAN(DATA, OUTPUT  TAPE 5» DATA, TAPE6-OUTPUT) 

C  STEADY  STATE  FLOW  ANALYSIS - SSFAN  22  FEB  1979 

C  DATA  INPUT  -  SORTING  -  STORAGE 

DIMENSION  1TY( 30) , IDES( 30) ,TYPE( 19) 

DIMENSION  BLANK1 (1) ,BLANK2( 1) ,BLANK3( 1) 

DIMENSION  TEMP14(100,2) 

DIMENSION  QT15(3) ,QT16( 10, 18 ) ,QT17(5 , 18) ,QT18(5, 18) ,QT19(108 ,10) 
DIMENSION  CALC  1( 70,9)  ,JCOL(70,5)  ,CALC2( 70)  ,  JRENT( 70) 

DIMENSION  JCENT( 70) , IDIAG( 70) , JNEG( 70) , INEG( 70) 

DIMENSION  IRENT( 70) , IC£NT( 70) , I0RDER( 70,3), ICOL( 70,9) 

COMMON  TEMPF,TEMPINC 

COMMON  AFBP( 20) , BRANCHP( 70 , 22 ) ,CONNECT( 100,8) , ILEP( 70 , 2 ) 

COMMON  AFBPS( 20), BPS( 70,6 ) ,CONS( 100,3), BLEG( 70,16) ,PQL( 70,8) 
COMMON  / BLK 1 / TEMP , V 1 SC , DENS , D1 00 , PAMB , ALT , FLUI DF , FLU I DR , V 1 00 
COMMON  /BLK2/VVISC(9) ,VTEMP(9) ,DDENS(2) ,DTEMP(2) ,NVIS 
COMMON  /BLK3/NPQL2(20) ,PQL2(20) 

COMMON  /BLK7/IERR0R , ITER 
COMMON  / BLK8 /TODAY ( 1 ) 

COMMON  / BLK 9 / FT Y PE ( 1 6 ) , PRI NT 

DATA  NBP2 ,NC2 ,NL,NPQ/70, 100,70,70/, BCHK/'  '/ 

DATA  N16.N17 ,N18 ,N19/ 10 , 5 , 5 , 10/ 

DATA  ITY/1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 21, 22, 23, 24, 
125,31,32,33,34.35,36,37,38,91,92,100,100/ 

DATA  IDES/'TUBE' , 'UNION' .'CHECK  VLV' , 'ACTUATOR' , 
l'PUMP' .'FILTER' ,'PP-QPT-ACC' , 'MOTOR' , 'RESERVOIR' , 

2'SPECIAL', 'HOSE' , 'HEAT  EXCH', 'FLOAT  BP', '45  DEG  EL', 

3'90  DEG  EL', 'REDUCER', 'TEE', 'CROSS', '1-WAY  RSTR' , 

4'2-WAY  RSTR', 'RELIEF  VLV','4W-3P  VLV','3W-2P  VLV', 

5'2W-2P  VLV', 'FLOW  REG'.'ORF  SIZER', 'APPX  RESV' , 

6'CNST  P  RSV * , '*** a****** * ^ '********** " / 

CALL  DATL(TOD/iY) 

READ(5,7)(FTYPE(M) ,M-1  ,8) 

KEAD( 5 , 7 ) (FTYPE(M) ,M-9 , 16) 

CALL  UPUT4 
WRITE(6 ,2) 

WRITE( 6,1) 

1  FORMAT (1X,9('0'),10('1'),10('2'),10('3'),10('4'),10('5'),10('6'), 
1 10( ' 7 ' ) , '8'  ) 

2  FORMAT (  '  '  ,  33(  '*'  )  ,  'COLUM,.  .NUMBERS'  ,  33(  '*')  ) 

WR ITE( 6 , 3 ) 

3  FOKMAT( '  ',8(' 1234567890')) 

WRITE( 6,4) 

4  FORMAT('  ',5(8('  +  '),8('$'))) 

IERROR-0 

ERR-O. 

NJ3-0 

116-0 

117- 0 

118- 0 

119-1 

READ( 5 , 12) NVIS , BLANK l ( i),(VVISC(M),M-l,NVIS) 

READ( 5 , 1 2) NVIS , BLANK2 ( 1 ) , ( VTEMP(M) ,M-1 ,NVIS ) 

READ( 5 , 1 5)DDENS( 1 ) , DDENS( 2 ) ,DTEMP( 1 ) , DTEMP( 2 ) 
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(Cont inued) 


READ( 5 , 1 5 )TEMP ,TEMPF .TEMPI NC , ALT , PRI NT 
WRITE(6 ,5) 

5  FORMAT ( / '  CARD  1  ' ,23('+' ) , 'TITLE' , 43! '4' ) ) 
WRITE(6,S)(FTYPE(M),M-1,8) 

WKITE(6 ,6 ) 

6  FORMAT (/ '  CARD  2  ' , 23! '4' ) , 'FLUID' , 45! '4' ) ) 

WRITE(6 ,8) (FTYPE(M) ,M-9,16) 

7  FORMAT(8A10) 

WRITE(6 ,9) 

8  FORMAT( '  ' ,8AL0) 

9  FORMAT ( / '  CARDS  3&4  ', 9( '4' ), 'VISCOSITY-TEMPERATURE  DATA' , 35( '4' ) ) 
WRITE( 6 , I3)NVIS , BLANK! ( 1),(VVISC(M),M”1,NVIS) 

WRITE! 6 , 13)NVIS , BLANK2( l ) , (VTEMP(M) ,M=1,NVIS) 

WRITE(6 , 10) 

10  FORMAT ( / '  CARD  5  ' , 14 ( '4' ) , 'DENS ITY-TEMPERATURE  DATA' , 35( '4' ) ) 
WRITE(6 , 1 1 )DDENS( I ) , DDENS{ 2 ) , DTEMP< 1 ) , DTEMP( 2 ) 

11  FORMAT ( '  ' , 10F8 . 3 ) 

12  FORMAT( II,A7,9F8.2) 

13  FORMAT ( '  ',11 ,A7 ,9F8.2) 

WRITE(6 , 14) 

14  FORMAT(/'  CARD  6  ', 5( '4' ),' INITIAL  TEMP-FINAL  TEMP-TEMP  INCK-ALTIT 
1U0E- PRINT-OPTIONS' , 12 ( '4' ) ) 

WRITE( 6 , 1 1 )TEMP , TEMPF .TEMPINC .ALT , PRI NT 

15  FORMAT ( 1 0F8 . 3 ) 

WRITE! 6 , 16) 

16  FORMAT!/ /I IX  ,  'TYPE'  ,2X,  'DESCRIPTION'  ,4X,'TYPE'  , 

12X, 'DESCRIPTION' ,4X, 'TYPE' , 2X , 'DESCRIPTION' , 

2/1 IX, 4 ('4') ,2X,11('4') ,4X,4('4') ,2X,11('4') , 

34X,4('4'),2X,11('4')) 

DO  17  1=1,10 

17  WRITE(6,18)ITY(I) ,IDES(I) , ITY( 1410) , IDES( 1410) , ITY( 1420) , 

1 IDES( 1420) 

18  FORMAT(12X,I2,3X,A10,6X,I2,3X,AlO,6X,I2,3X,AlO) 

WRITE( 6, 19) 

19  FORMAT! 'ICARUS  7  &  ON  ', 27 ! '4' ), 'ELEMENT  DATA' , 28! '+' ) ) 

WRITE! 6, 2) 

WRITE!6,1) 

WRITE!6,3) 

WRITE! 6,4) 

20  READ! 5,21)N,BLANK3(1),!TYPE(M),N-1,9) 

NCT-1 

21  FORMAT!  II  ,A7  ,9F8.3) 

WRITE! 6, 22 )N  BLANK3! 1 ) , !TYPE! M) ,M=l , 9) 

22  FORMAT!'  ',11  ,A7,9F8.3) 

AN=TYPE( 1) 

IF( AN. EQ.l. .OR.AN.EQ.il. )CALL  BLOSS! NCT .TYPE) 

IF!N.GE.2)READ! 5,15)(TYPE!M) .M-10,19) 

IF(N.CE.2)NCT»2 

IF( BLANK3! 1 ) . EQ. BCHK)GO  TO  24 

ERR-ERR41 . 

WRITE! 6,23) 

23  FORMAT!'  ' , 5X ,  "**ERROR***  DATA  IN  COLUMNS  2  THRU  8') 

24  ITYPE-TYPE! 1 ) 


3) 


3.8 


(Continued) 


IF ( ITYPE .EQ.O)GO  TO  58 
1F( ITYPE. GT .10)GO  TO  25 
IF( ITYPE .GT . 2 )GO  TO  35 
GO  TO  (37,37) .ITYPE 

25  Jl-ITYPE/10 
J2-ITYPE-J1*10 

GO  TO  (26 , 27 ,28 , 30,30, 30,30 , 30,29} ,J1 

26  GO  TO  (37, 37, 52, 32, 41, 41, 41, 41, 41), J2 
GO  TO  30 

27  GO  TO  (37, 37, 37, 35, 35), J2 
GO  TO  30 

28  GO  TO  (35, 37, 35, 35, 35, 35, 35, 35), J2 
GO  TO  30 

29  GO  TO  (35,35) ,J2 

30  ERR-ERR41. 

WRITE( 6,31) 

31  FORMAT( '  '  ,11X,"**ERR0R***  ILLEGAL  ELEMENT  TYPE') 
GO  TO  56 

32  DO  33  J3-3.9 
IF(TYPE(J3).EQ.O.)GO  TO  34 
NJ3-NJ341 

TEMP14(NJ3,2)-TYPE(2) 

33  TEMPL4((NJ3) ,1)-TYPE(J3) 

34  GO  TO  54 

35  NBP-NBP41 

IF(N.E0.2)WRITE(6,57)(TYPE(M),M-lO,19) 

DO  36  J-1,17 

3b  BRANCHP( NBP+( J-l ) *NBP2 )-TYPE( J) 

GO  TO  54 

37  NC-NC41 

IF(N.GE.2)WRITE(6,57)(TYPE(M),M-10,i9) 
IF(N.GE.2)CALL  BLOSS(NCT.TYPE) 

IF(N.EQ.NCT)GO  TO  39 

38  REAO(5,15)(TYPE(M),M-10,19) 

WRITE(6 , 57) (TYPE(M) ,M«10 , 19 ) 

CALL  BLOSS(NCT.TYPE) 

NCT-NCT+1 

IF(NCT.EQ.N)GO  TO  39 
GO  TO  38 

39  DO  40  J-l, 8 

40  C0NNECT(NC+(J-1)*NC2)»TYP£(J) 

GO  TO  54 

41  IF(N.EQ.2)WRITE(6,57)(TYPE(M) ,M-10,19) 

J3-ITYPE-14 

GO  TO  (42, 44, 46, 48, 50), J3 

42  DO  43  1-1,3 
J-l+1 

43  0T15(I)-TYPE(J) 

GO  TO  54 

44  116-11641 

DO  45  1-1,18 

45  QT {b ( I 16 , I)-TYPE( J ) 
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GO  TO  54 

46  I17-I17+1 

DO  47  1-1,18 
J-I+l 

47  QT17(I17 ,I)-TYPE(J) 

GO  TO  54 

48  I18-I18+1 
J-I+l 

49  QT18(I18 ,I)-TYPE( J) 

GO  TO  54 

50  119=119+1 
DO  51  1-1,5 
J-I+l 

51  QT19( I , I19)*TYPE( J) 

GO  TO  54 

52  DO  53  J-2,9 
IF(TYPE(J).Eq.O.)GO  TO  54 
NAB-NAB+1 

53  AFBP(NAB)“TYPE( J) 

54  DO  55  M-1,19 

55  TYPE(M)-0. 

GO  TO  20 

56  IF(N.Eq.2)v/RITE(6,57)(TYPE(M),M-lO,19) 

GO  TO  20 

57  FORMAT ( '  ' , 10F8 .3) 

58  CONTINUE 
CALL  V 1SD 

IF( ALT. LE. 36089. )PAM B-(1.6676*(l. -ALT/1 45378. ))**5. 2 56 
IF( ALT . GT . 36089 . AND . ALT . LE . 6 5E3 )PAMB«3 . 282  5 
1  *EXP( 4 . 806E-5* ( 36089 . -ALT) ) 

IF( ALT. GT. 6 5E3. AND. ALT. LE. 15E4)PAMB«( 867. 42375-1. 990498E-2+ALT 
1  +i . 549619E-7*(ALT**2 )-4 .046556E-1 3*(ALT**3) )/ 144 . 
IF(ALT.GT.15E4)PAMB-. 019 7361 

CALL  SDSORT(AFBP,BRANCHP, CONNECT, AFBPS, BPS, CONS, NBP2 ,NC2) 

IF( IERROR.GT.O)GO  TO  76 

CALL  BUILD(  ILEP,  CONS,  BPS,  AFUPS ,  BLF.G  ,  PQL ,  NBP2  ,NC2,NL,NPQ, 
lBRANCHP,  CONNECT,  ML) 

DO  59  I-l.NPQ 

59  PqL( I+7*NPQ)-TEMP 
DO  61  I-l.NPQ 
IF(PqL(l).EQO.)GO  TO  62 
DO  60  J-1,100 

IF(TEMP14( J , 1 ) .Eq.O. )G0  TO  61 
DO  60  K-3,6 

IF(TEMP14( J , 1 )  EQ.PQL( I+K*NPq) )PqL( I+7*NPQ)-TEMP14( J , 2 ) 

60  CONTINUE 

61  CONTINUE 

62  CONTINUE 

DO  64  1-1, NL 

1F( 1LEP( I) .Eq.O. )G0  TO  65 
BLEG(I+2*NL)-10. 

1F( BLEG( 1+6*NL) . Eq .0. )G0  TO  63 
EqDl-BLEG( I+3*NL)**4 
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EQD2-BLEG( I46*NL)**4 

BLEG(I43*NL)-((EQD1*EQD2)/(EQD14EQD2))**.25 

BLEG(I+6*NL)-0. 

63  BLEG(I47*NL)-.0001 
BLEG(I44*NL)«0. 

IF( BLEG( I+3*NL) .EQ .0 . )BLEG( I412*NL)-2 . 
IF(BLEG(I+3*NL).EQ.O.)BLEG(I+3*NL)-l. 

BLEG( I413*NL)-(PQL( ILEP(I)47*NPQ)4PQL( ILEP( I4NL)47*NPQ) )/2 . 
TEMP«BLEG(I4l3*NL) 

VISC-0. 

CALL  VISD 

FLUIDK-( FLUIDF**( 560. /( 460 .4TEMP) ) )* .00023 
BLEG( I414*NL)«FLUIDK 

64  BLEG(I415*NL)»VISC 

65  N=0 
JEM»0 
IPQL2-0 

DO  66  I-1.NBP2 
IF(PQL(I).EQ.O.)GO  TO  67 
JEM-JEM41 

IF(pqL(I) .EQ.-l.)GO  TO  66 
N-N41 

IPQL2«lPQL24l 

NPQL2(IPQL2)-I 

PQL2(IPQL2)-PQL(I) 

66  CONTINUE 

67  CONTINUE 

IF( PRINT. EQ. 1 .)GO  TO  68 
IF ( PR1 NT . EQ . 2 . )GO  TO  69 
IF(PKINT.EQ.3. )GO  TO  70 
GO  TO  71 

68  WRITE(6,72)(I,(ILEP(I,J),J-1,2),I-1,ML) 

69  WRITE(6,73)((PQL(I , J) , J-l ,8) , 1-1 ,JEM) 

70  WRIT£(6,74)( (BLEG( I , J) , J-l , 16) , 1-1 ,ML) 

71  CONTINUE 

72  FORMAT(3I10) 

73  F0RMAT(8F12.3) 

74  F0RHAT(8F14.4) 

CALL  0PUT4 

CALL  0PUT3( ILEP , BLEG ,NL ,PQL ,NPQ) 

IF( (QT15( 2 )-QT15( 1 ) ) .LE.O. )G0  TO  75 

CALL  QTCALC( BRANCHP ,NBP2 , PQL ,NPQ ,BLEG , ILEP ,NL,QT16 ,N16 , 
1QT17,N17,QT18,N18,QT19,N19,.ML  N.JEM.CALCl ,JC0L,CALC2 , 

2  J  RENT,.! CENT ,  IDIAG  ,  JNEG  .  INEG ,  1KENT  ,  ICENT  ,  I  ORDER ,  ICOL ,  PQL2  ,  NPQL2  ) 
GO  TO  76 

75  CALL  CALC(ML,N, JEM, BLEG, PQL, CALC1 , JCOL ,CALC2 , JRENT , JCENT , 

1 IDIAG, JNEG, INEG, BKANCIIP ,NBP2 ,NL , ILEP , IRKNT , ICENT , IORDER , ICOL , 
2NPQ) 

CALL  0PUT4 

CALL  0PUT2(1LEP,  ilLEG.NL,  PQL,  NPQ) 

76  CONTINUE 
END 
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SECTION  IV 
DATA  INPUT 

The  Input  section  of  the  Main  Program  is  designed  to  minimize 
user  time  and  effort  in  the  preparation  of  the  data  deck.  All  data  cards 
are  divided  into  10  columns  of  8  characters  each,  with  only  the  title  card 
and  fluid  name  card  not  following  this  format. 

The  first  six  cards  of  the  data  deck  contain  the  system  parameters. 

They  along  with  the  last  data  card  are  the  only  cards  that  must  be  inserted 
in  a  specific  order.  The  system  parameters  include  the  system  title,  fluid 
name,  viscosity-temperature  data  points,  density -temperature  data  points, 
system  operating  temperature,  altitude  and  the  type  of  data 
output.  The  remainder  of  the  deck  contains  the  system  element  dat£  . 

The  description  of  how  the  element  physical  data  is  entered  on  the  cards 
along  with  any  other  information  concerning  the  data  deck  setup  may  be 
found  in  the  SSFAN  Users  Manual (AFAPL-TR-76-43,  Vol .  V). 

The  Input  has  no  restriction  as  to  the  placing  of  element  data  cards 
in  the  data  deck.  Each  element  card  or  cards  depending  on  the  type  of  element, 
may  be  inserted  in  any  order.  If  new  elements  are  added  to  the  system,  the 
data  cards  containing  these  elements  may  be  located  anywhere  the  user  finds 
it  best  to  insert  them.  The  Input  section  of  the  program  processes 
each  element  individually,  therefore  a  rigid  format  for  element  order  m 
the  data  deck  need  not  be  followed. 

The  final  card  for  data  input  has  a  zero  element  type.  The  reading  of  a 


zero  element  type  will  terminate  the  data  processing. 


Figure  10  presents  a  simple  flow  chart  for  the  input  processing  of 
the  data  deck.  The  SSFAN  Main  Program  reads  in  the  data  cards  and  writes 
out  the  data  exactly  as  it  was  read  in.  The  data  is  processed  one  card  at 
a  time  for  system  parameter  cards,  and  one  or  more  cards  for  element  data. 
The  data  is  stored  in  the  appropriate  array  as  it  is  read  in.  If  the  data 
being  processed  is  a  tube  or  hose,  its  energy  loss  coefficient  is  computed 
and  stored  before  another  card  is  read.  When  an  illegal  format  occurs 
on  a  data  card  an  error  message  is  printed  out  and  the  processing  continues 
with  the  next  card.  The  card  with  element  type  zero  causes  the  main 
program  to  stop  reading  data  cards. 

Figure  11  presents  a  summary  of  data  card  input  parameters  for  all 
elements . 

Refer  to  Figure  12  for  examples  of  data  cards  written  out  exactly 
as  they  were  read  in. 
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FIGURE  11  Summary  of  Element  Data  Card  Input 


FIGURE  11  (Continued) 
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FIGURE  12  Example  of  Data  Cards  Printout 
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FIGURE  12  (Continued) 


4.1  MAIN  PROGRAM  DATA  INPUT 


The  main  program  data  input  section  reads  the  data  from  the  data  cards 
which  describe  the  system  parameters  and  elements.  The  data  is  stored  in 
labeled  and  unlabeled  common  and  other  arrays  for  use  by  the  main  program 
and  the  individual  subroutines.  All  input  is  made  using  an  80  column  card 
field  as  the  basic  format.  The  program  reads  one  or  more  cards  as  required 
by  the  system  element  models.  Any  element  type  that  is  not  listed  in  the 
SSFAN  users  manual  as  being  a  valid  element  will  be  rejected  by  the  program 
which  will  print  out  an  error  message. 

If  the  element  is  a  tube  or  a  hose  with  bends,  the  energy  loss  coefficient 
is  calculated  by  BLOSS  subroutine  and  stored  with  the  element  data.  The 
bend  angles  are  then  discarded. 
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.1  description  ot  JJa t a  i n pu t 

I  e  data  input  section  has  two  basic  tasks  to  perform.  \  flow 
•!  >  a gram  of  this  data  processing  is  presented  in  Figure  id-  "'he  first 
task  Involves  the  reading  in  of  the  system  parameters.  A  separate  read 
statement  is  used  to  input  each  of  these  cards.  The  first  two  cards  are 
the  title  and  fluid  name  cards  to  be  used  wherever  the  system  title  or 
fluid  name  must  appear  in  the  program.  The  title  card  data  is  read 
into  a  labeled  common  (BLK9)  whose  array  name  is  FTYPE.  Cards  three 
and  four  contain  the  viscosity-temperature  data  for  the  hydraulic  fluid  to 
be  used  in  the  system.  This  data  is  stored  in  BLK2  under  array  names  WISC 
and  VTEMP.  Also  stored  in  BLK2  is  the  density-temperature  data  contained 
on  card  five.  The  final  value  stored  in  BLK2  is  the  number  of  viscosity 
data  points  which  are  used  later  in  the  viscosity  interpolation  subroutine 
VISD.  This  valu-  is  read  off  the  viscosity  data  card.  The  last  or 
sixth  card  of  the  system  parameters  contains  the  system  initial  and  final 
temperature  and  temperature  increment  (for  multiple  temperature  runs) , 
altitude  and  type  of  output  requested.  The  temperature  and  altitude  are 
stored  in  BLK1  and  the  output  types  are  inserted  into  BLK9  in  the  PRINT 
array. 

The  second  task  sorts  the  system  elements  into  their  respective  arrays. 
One  element  is  processed  at  a  time.  The  read  statement  will  input  as  many 
data  cards  that  are  needed  to  fully  describe  a  system  element.  This 
information  is  temporarily  put  into  a  buffer  array  named  TYPE.  After  the 
element  type  is  converted  to  an  integer  (ITYPE),  a  computed  Go  To 
corresponds  the  type  number  with  a  statement  number.  A  do  loop  at  each 
statement  number  empties  the  buffer  array  into  the  proper  element  array. 
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OATA  INPUT 

I 


SYSTEM  PARAMETERS 

*  TITLE 

*  FLUID  NAME 

*  VISCOSITY  DATA  POINTS 

'  TEMPERATURE  DATA  POINTS 

*  DENSITY  TEMPERATURE  DATA 

*  SYSTEM  TEMPERATURE,  ALTITUDE. 
OUTPUT  TYPE 


GP7 i 02  T0  1 

FIGURE  13 

DATA  INPUT  FLOW  DIAGRAM 

* 
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<2. 


* 

* 

ft 


All  the  basic  input  data  are  stored  in  AFBP,  BRANCHP  or  CONNECT  arrays. 
CONNECT  array  contains  all  the  static  elements  (elements  which  have  resistance 
coefficients  calculated  and  stored  and  are  not  recalculated  during  the 
iterative  calculations).  BRANCHP  array  contains  all  dynamic  elements  (elements 
whose  resistance  coefficients  are  recalculated  each  iteration).  AFBP  array 
contains  junction  numbers  input  by  the  user  to  have  pressures  calculated 
which  otherwise  would  not  be  calculated.  Variable  temperatures  at  branch 
points  are  stored  in  TEMP14  array.  Quasi-transient  calculation  data  are 
stored  in  arravs  0T15,  QT16,  QT17,  QT18  and  QT19. 

Figures  14  and  15  are  summaries  of  data  contained  in  CONNECT  and 
BRANCHP  arrays  respectively.  Figures  16  ,  17  and  18  are  actual  computer 
printouts  of  data  contained  in  CONNECT,  AFBP  and  BRANCHP  arrays,  respectively, 
from  SSFAN  Sample  Case  Number  1. 

4.1.2  Computat ions 

BI.OSS  subroutine,  calculates  energy  loss  coefficients  for  tubes  and 
hoses.  Figure  19  is  the  flow  diagram  for  BI.OSS.  See  Appendix  C  for 
detailed  calculation  method. 

The  DO  loop  parameters  are  set  depending  on  the  number  .of  cards  being 
read.  The  ratio  of  bend  radius  to  inside  diameter  is  set  to  3 . X  (OD/ID) 
for  tubes  and  8.  for  hoses.  To  change  either  value  requires  changing  the 
number  on  the  appropriate  card  in  BI.OSS  subroutine.  Each  bend  angle  is 
read  from  the  TYPE  data  array  one  at  a  time,  energy  loss  coefficient  calculated 
and  summed  into  a  temporary  storage  location  (ECOEF).  When  all  the  bend 
angles  on  one  card  are  processed,  ECOEF  is  summed  into  column  7  of  the  tube 
or  hose  data,  replacing  the  first  bend  angle  that  was  input. 
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FIGURE  15  BRANCH?  Array-  Data  Summary 
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FIGURE  16  CONNECT  Arrav  -  Example  Data 
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FIGURE  18  BRANCHP  Array  -  Example  Data 


initialize 
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4.1.3  Error  Messages 


Should  the  user  Insert  an  invalid  element  number,  the  type  number 
(ITYPE),  generated  from  the  integer  truncation  of  TYPE(l)  will  cause 
an  error  message  to  be  printed. 

The  message  "Error  -  Illegal  Element  Type"  is  printed  below 
the  data,  see  Figure  20. 


1 

1.000  225.000  220.000 

4.000  .020 

78.200 

97.000 

89.000 

90.000 

1 

2.000  15.000  225,000 

4.000  4.000 

-0.000 

-0.000 

-0.000 

-0.000 

1 

26.000  200.000  205.000 

8.000  8.000 

-0.000 

-0.000 

-0.000 

-0.000 

••♦ERROR***  ILLEGAL  ELEMENT  TYPE 

1 

1.000  190.000  200.000 

8.000  .028 

128.500 

O^.OOO 

31  000 

68.000 

FIGURE  20 

Illegal 

Element  Number 

Output 
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If  data  is  entered  in  columns  2  thru  8  of  any  data  card ,  an  error 


message  will  be  generated.  The  error  message  will  be  printed 
immediately  below  the  input  data,  as  shown  in  Figure  21. 


2 

1.000 

205.000 

210.000 

8.000 

.028 

14'. 300 

23.000 

38.000  90.000 

83.000  121.000 

150.000 

-0.000 

-0 . 000 

-0.000 

-0.000 

-0.000 

-0.000  -0.000 

2 

5  5.000 

5.000 

10.000 

15.000 

16.000 

12.000 

4. 000 3' 50. 0003' 50. 000 

°**EKHOR*** 

DATA  IN 

COLU.iNS 

2  TriRU  8 

50.0003000.0002950.000 

-0.000 

-0.000 

-0.000 

-0.000 

-0.000 

-0.000  -0.000 

1 

2.000 

245.000 

250.000 

10.000 

10.000 

-0.000 

-0.000 

-0.000  -0.000 

FIGURE 

21 

Illegal  Format  Output 


The  number  of  elements  should  not  exceed  the  array  storage  allocated 
for  them  in  the  main  program.  If  this  occurs  the  excess  elements  of  a 
particular  type,  will  be  stored  in  the  last  location  of  the  element  array 
over  any  information  that  has  previously  been  placed  there.  With  termination 
of  the  data  input  operation  system  assembly  begins. 


I 
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4.1.4  Main  Program  Data  Input  Section  Variable  Names 


Refer  to  section  3.7  for  a  variable  name  listing. 
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4.1.5 


Main  Program  Data  Input  Section  List ing 


REAO( 5 , 7 ) (FTYPE(M) ,M”1 , 8) 

READ(  5 , 7  )(FTYPE(M)  ,M=9,16) 

CALL  0PUT4 
URITE(6,2) 

WRITE(6 , 1 ) 

1  FORMAT(lX,9('O'),lO('l'),lO('2'),lO('3'),lO('4'),lO('5'),l0('6'), 
110('7'),V) 

2  FORMAT ( '  ',33('*'), 'COLUMN  NUMBERS' ,33( '*') ) 

WRITE(6 ,3) 

3  FORMAT( '  ',8(' 1234567390')) 

WR I TE  (  6 , 4  ) 

4  F0RMAT('  '  ,5(8('+') ,8('$'))) 

ERR=0. 

NJ3-0 

N16»0 

N17-0 

N18-0 

N19-0 

READ( 5 , 1 2) NVIS , BLANKl (1),(VVISC(M), M=1 ,NVIS) 

REAI)(  5 , 1 2  )  MV  IS  ,  BL ANK2  (  l )  ,  (  VTEMP(  M  )  ,  M=  1  ,  NV I S ) 

READ( 5,15) DDENS ( 1 ) , DDENS ( 2 )  , DTEMP( 1 ) , DTEMP (  2 ) 

REAO( 5 , 1 5 ) TEMP , TEMPF , T KMPI NC , ALT , ( PR1 NT( M ) , M« 1 , 4 ) 

WRITE( 6,5) 

5  F0RMAT(/'  CARO  1  '  , 23( '+' )  , 'TITLE' , 4  5( '+' )  ) 

WRITE(6 ,8) (FTYPE(M) ,M”1 ,8) 

WR1TE(6 , 6 ) 

6  FORMAT(/'  CARD  2  ' , 23( '+' ) , 'FLUI D' , 45( '+' ) ) 

WR1TE( 6 ,8)(FTYPE(M) ,M-9,16) 

7  FORMAT(8A10) 

WRITE(6,9) 

8  F0RMAT( '  ' , 8A10) 

9  F0RMAT(/ '  CARDS  3&4  ' ,9('+') , 'VISCOSITY-TEMPERATURE  DATA' , 35( '+' ) ) 
WRITE(6,13)NVIS,BLANK1(I) , ( VVISC(M) , M= 1 , NVIS ) 
WRITE(6,13)MVIS,BLANK2(1) ,(VTEMP(M) ,M=*1 ,NVIS) 

URITE(6 , 10) 

10  FORMAT(/'  CARD  5  '  ,  14(  '+'  )  ,  'DENS  ITY-TEMPERATURF.  DATA' ,  3 5( '  +  ' )  ) 
WRITK(6 , 1 1  )DDENS(  1 )  ,DDENS(  2)  ,  DTEMP(  l  )  ,0TF.MP(  2) 

11  FORMAT( '  ' , 10F8 .3) 

12  FORMAT ( 1 1 ,A7 , 9F8 . 2  ) 

13  FORMA T('  ' , II ,A7 ,9F8 .2) 

WRITE(6 , 14) 

14  FORMAT( /'  CARD  6  ', 5( '+'),' INITIAL  TEMP-FINAL  TEMP-TEMP  INCR-ALTIT 
1UDE-PRINT-0PTI0NS' , 12( '+' ) ) 

WRI TE ( 6 , 1 1 ) TEMP , TEMPF .TEMP I NC , ALT , ( PRI NT( M) , M- l , 4 ) 

15  FORMAT ( 1 0F8 . 3 ) 

WRITE(6,16) 

16  F0RMAT(//11X, 'TYPE' ,2X, 'DESCRIPTION' ,4X, 'TYPE'  , 

12X, 'DESCRIPTION', 4X, 'TYPE' ,2X , 'DESCRI PTION' , 
2/llX,4('+'),2X,ll('+'),4X,4('+'),2X,ll('+'), 

34X,4('+'),2X, !!('+')) 
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A. 1.5  (Continued) 


DO  17  1=1,10 

17  WUITE(6,18)ITY(I) ,  IDES( I ) , ITY( 1+10) , IDES( 1+10) ,ITY(I+20) 
1 IDES (1+20) 

18  FORMAT ( 12X,I2,3X,A10,6X,I2,3X,A10,6X,I2,3X,A10) 

WRITE(6 , 19) 

19  FORMAT ( ' ICARDS  7  &  ON  ' ,27( '+'), 'ELEMENT  DATA' ,28( '+' ) ) 
WRITE(6,2) 

WRITE (6,1) 

WRITE (6 ,3) 

WRITE(6,4) 

20  READ( 5 ,2 1)M ,BLANK3( 1 ) , (TYPE(M) ,M=1 ,9) 

NCT=i 

21  FORMAT! II , A7 , 9F8 .3) 

WRITE(6,22)N,BLANK3( 1) , ( TYFE(M) ,M=1 , 9 ) 

22  FORMAT ( '  ' , II , A7 ,9F8 . 3 ) 

AN=TYFE( 1 ) 

IF(AN  .EQ.l .  .OR.AM.EQ.il.  )CALL  8L0SS(  N’CT  .TYPE) 

IF(N .GE .2)READ( 5 , 1 5)(TYPE(M) ,M=10 , 19 ) 

IF(N.GE.2)NCT=2 
IF(BLANK3(1).EQ.BCHK)C0  TO  24 
ERR=ERR+1 . 

WRITE(6 ,23) 

2  3  FORMAT ( '  ' , 5X ,  "**ERROK***  DATA  IN  COLUMNS  2  TdRU  8') 

24  ITYPE=TYPE(  1 ) 

IF( ITYPE . EQ .0)G0  TO  5d 
IF( ITYPE .GT . 10)GO  TO  25 
IF( ITYPE .GT . 2 )G0  TO  33 
GO  TO  (37, 37), ITYPE 

25  J1-ITYPE/10 
J2=ITYPE-J1*10 

GO  TO  (26, 27, 28, 30,30, 30, 30, 30, 29), J1 

26  GO  TO  (37, 37, 52, 32, 41, 41, 41, 41, 41), J2 
GO  TO  30 

27  GO  TO  (37, 37, 37, 35, 35), J2 
GO  TO  30 

28  GO  TO  (35, 37, 35, 35, 35, 35, 35, 35), J2 
GO  TO  30 

29  GO  TO  (35 , 35) , J2 

30  ERR=F.RR+1. 

WKITE(6,31) 

31  FORMAT( '  ' , 1 IX,  "**ERROR***  ILLEGAL  ELEMENT  TYPE') 

GO  TO  56 

32  DO  33  J3-3.9 
IF(TYP£(J3).EQ.0.)G0  TO  34 
NJ3-NJ3+1 

TEMP14( NJ3 , 2 )=TYPE( 2 ) 

33  TEMP14( (NJ3) , 1 )=TYPE( J3) 

34  GO  TO  54 

35  NBP-NBP+1 

IF(N.EQ.2)WRITE(6,57)(TYPE(M),M=10,19) 

DO  36  J=l,17 

36  BKANCHP( NBP+( J-l )*NUP2 )=TYPE( J) 

GO  TO  54 

37  NONC+1 

IF(N.G£.2)WRITK(6,57)(TYPE(M) ,M=10, 19) 
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4.1.5  (Continued) 


IF( N .GE .  2 )CALL  BLOSS(NCT  ,TYPE) 

IF(N.EQ.NCT)GO  TO  39 

38  READ(5,15)(TYPE(M) ,M=10,19) 

WRITE( 6 , 57 ) (TYPE(M) , M=10 , 19 ) 

CALL  14  LOS  S  (  NCT  .TYPE) 

NCT=NCT+1 

IF (NCT .EQ.N)GO  TO  39 
GO  TO  38 

39  DO  40  J=1 , 8 

40  CONN£CT(N'C+(  J-l  )*NC2)=TYPE(  J ) 

GO  TO  54 

41  IF(N.EQ.2)WR1TE(6,57)(TYPE(M),M=10,19) 

J3=ITYPE-14 

GO  TO  (42,44,46,48,50) ,J3 

42  DO  43  1=1,3 
J=I+1 

43  QT15( I)=TYPE( J) 

GO  TO  54 

44  N16-N16+I 

DO  45  1=1,18 
J=l+1 

45  QT16(N16,I)=TYPE(J) 

GO  TO  54 

46  :U7  =  N17+1 

DO  47  1=1,18 
J-I+l 

47  QT17 (N17 , I) =TYPE( J ) 

GO  TO  54 

48  N18=N18+1 
J  =  I+1 

49  QT18(N18  , 1 )=TYPE( J) 

GO  TO  54 

50  N19-N19+1 
DO  51  1=1,5 
J  =  l+1 

51  QT 1 9 ( I , N 1 9 ) =TY  PE ( J ) 

GO  TO  54 

52  DO  53  J=2 ,9 

1 K(TYPE( J ) .EQ.O . )G0  TO  54 
NA6-NAB+L 

53  AFBP(NAB)=TYPE( J) 

54  DO  55  M= 1 , 1 9 
53  TYPE(i’l)"0 . 

GO  TO  20 

56  IF(N.Eg.2)WRITE(6,57)(TYPE(M),M=10,l9) 

GO  TO  20 

57  FORiiAT(  '  '  ,  10F8.3) 

58  CONTINUE 
CALL  VISD 

IF( ALT. LE. 36089. )PAMB«( 1 ,6676*( 1 .-ALT/ 145378. ))**5. 256 
I F  (  ALT .  GT  .  36 08 9 .  AN D .  ALT  .  LF. .  6  5F. 3  )  P A;1tt-3 . 2 82 5 
1  *EXP(4.806E-5*(36089 .-ALT) ) 

I F( ALT .GT. 6  5K 3 .AND. ALT . LK . 1 5E4 ) PA.iB“( 867.4237  5-1. 990498E-2*ALT 
1  +1 . 549619K-7*(ALT**2)-4 .046536E-1 3*(ALT**3) )/144 . 

I F  ( ALT  . GT .  1 5 K4  )  PAi  1 B* . 0 1 9 7  3b  l 
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.1.6  BLOSS 

Variable 

A1 

B 

B1 

BRAT 

Cl 

DIA 

ECFF 

ECOEF 

K 

KCT 

I. 

M 

NCT 

TYPE 


Subroutine  Variable  Names 


Description  Units 

Part  of  energy  loss  coefficient 

Bend  angle  DEG . 

Part  of  energy  loss  coefficient 
Bend  Ratio 

Part  of  energy  loss  coefficient  — 

Tube  of  hose  l.D.  IN 

Energy  loss  coefficient  for  1  bend  — 

Summation  of  individual  energy  loss 
coefficients  ECFF 

Location  for  first  bend  angle  to  be  read 
in  TYPE  array 

Counter  to  determine  whether  or  not  the  card 
processed  is  the  first  card 

Location  for  last  bend  angle  to  he  read  in 
TYPE  array 

Counter 

Indicator  from  main  program  to  determine  which 
data  to  process 

Temporary  data  storage  array 
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4.1.7  Rl.OSS  Subroutine  Listing 


SUBROUTIHb  BLOSo ( NCT , TV  PE ) 

DMfcNSICM  TYPb(l) 

ECOtiF=Q. 

KCT=0 

L=9 

K=7 

IF(MCT.GT.1)K=10 
IF(,'ICT.GI.1)L=19 
IF(rYPb(l).bQ.ll.)GO  TO  1 
IF(TYP£(4)  .LT.4.  )TYPb(4)=TYPL(4)*16. 

DIA=TYPt( 4 )/16 .-2. *TYPE( 5) 

BEAT*  3 . * ( TYPE( 4  )/16 .  )/DIA 
GO  TO  2 

1  DIA=TYPb(  5) 

3KAT=8 . 0 

2  DO  7  I=K,  L 
KCT=KCi'+l 
B=TYFE( I) 

IF ( Nd .  EQ .  1  .AUD .KCY . EQ . 1 ) TY  P£( 7 ) =0 . 

IFfB.tQ.O. )GO  TO  7 
IF ( 6 . GT . 1 30 , ) GO  TO  3 

Al=-3.97626E-10*B**4+2.8475E-7*B**3-9.23298b-5*3**2 
1+1 . 74517E-2*B 
GO  TO  4 

3  Al-1. 39+0-130.  )*3.3333E-3 

4  IF(3RAT. GI. 30. )GO  TO  5 
Bl= . 206982*BHAT** ( 49421 ) 

GO  TO  6 

5  131= .  0 33  541 1- ( BRAT-30 . ) * 4E-4 

6  Cl=l. 

ECFF=A1*B1*C1 
LCOLF=ECObF +uCF F 

7  CONTINUE 

TYPL( 7)=TYPb( 7 ) +bCObF 
DO  8  11=10,19 
IF(.CT.Gr.l)  TY  Pb  ( ti )  =0 . 

8  CONTIrfUL 
KfcTUKN 

END 
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SECTION  V 


SYSTEM  ASSEMBLY  AND  INITIAL  CALCULATION 
The  system  is  assembled  into  legs  from  the  individual  elements. 

Starting  with  a  pump  or  Type  7  accumulator  flow  or  pressure  source,  a  leg 
is  assembled  using  a  continuity  search  for  the  element  containing  the  matching 
junction  number.  As  each  element  is  located,  static  resistance  factors 
are  calculated  and  stored.  When  a  match  is  found  and  the  element  is  a  branch 
point  element,  the  leg  is  ended  and  a  new  leg  is  started.  If  an  element 
is  a  dynamic  element  (elements  whose  data  are  updated  during  the  iteration 
calculation)  identifiers  are  placed  in  the  element  data  array.  This  procedure 
continues  until  all  legs  are  assembled. 

Figure  22  is  a  general  flow  diagram  for  system  assembly. 
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FIGURE  22 

SYSTEM  ASSEMBLY  FLOW  DIAGRAM 
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/ 


5.1  SYSTEM  ASSEMBLY  SUBROUTINES 


Subroutine  SDSORT  takes  the  element  type  number  and  junction  number 
data  from  arrays  AFBP,  BRANCHP  and  CONNECT,  Figures  16  f  17  and  18  and  places 
the  data  in  arrays  AFBPS,  BPS  and  CONS.  The  AFBPS,  BPS  and  CONS  arrays  are 
used  during  the  leg  building  process  only,  and  the  data  contained  therein  is 
destroyed  as  the  legs  are  built,  see  Figures  23  and  24  for  before  and  after 
leg  building.  The  data  in  BPS  array  is  arranged  according  to  ascending  element 
type  number  with  types  5  and  7  placed  at  the  beginning  of  the  array.  Column 
6  of  BPS  array  contains  the  row  location  of  the  element  in  BRANCHP  array. 

SORTP  subroutine  is  used  to  sort  the  data  in  BPS  array  in  ascending  order  by 
type  number  except  that  type  5  and  type  7  data  are  placed  at  the  top  of  the 
array.  This  minimizes  the  search  for  connecting  elements  during  the  building 
process . 

Subroutine  BUILD  performs  the  leg  building.  The  first  element  in  BPS 
array  is  used  to  start  the  first  leg  if  it  is  an  element  type  5  or  type  7. 

If  no  element  type  5  or  type  7  is  available,  an  error  message  is  printed, 
see  Figure  25.  A  search  is  made  for  the  element  having  a  matching  junction 
number.  When  a  matching  element  junction  is  found,  the  outlet  port  junction 
of  the  new  element  is  set  as  the  port  junction  search  number.  If  a  branch 
point  element  junction  is  in  the  junction  match,  the  leg  is  ended  and  a  new  leg 
is  started.  A  new  leg  will  not  be  started  from  a  branch  point  element  unless 
there  has  already  been  a  junction  assembled  from  that  element  or  the  element 
is  a  type  5  or  type  7.  Therefore  inactive  elements  may  be  left  in  the  data 
cards  when  checking  different  system  configurations,  and  will  not  be  assembled 
into  the  system  as  long  as  the  junction  numbers  do  not  match  any  of  the  active 
system  element  numbers. 
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FIGURE  24  BPS  Array 


As  each  element  is  encountered  in  building  a  leg,  static  resistance 
coefficients  are  calculated  by  SC0NST1,  SC0NST2  or  SC0NST3  subroutine.  These 
resistance  coefficients  are  summed  into  BLEG  array,  columns  8,  9,  10  and 
11,  see  Figure  7  .  SCONST1  calculates  static  resistance  coefficients  for 
connecting  type  elements  all  stored  in  CONNECT  array.  SC0NST2  calculates 
static  resistance  coefficients  for  elements  in  BRANCHP  array  which  are  not 
branch  point  elements  such  as  check  valves,  filters,  etc.  SC0NST3  calculates 
static  resistance  coefficients  for  all  branch  point  elements  stored  in 
BRANCHP  array. 

During  assembly,  branch  point  numbers  are  placed  in  the  BRANCHP  array 
for  a.ll  elements  that  are  branch  point  elements,  see  Figure  26  ,  a  (-1) 
is  placed  in  column  21  for  these  same  elements.  For  elements  that  are 
not  branch  point  elements  (Types  3,  6,  10,  31  and  33)  in  BRANCHP  array, 
the  leg  number  in  which  it  is  assembled  is  placed  in  column  21.  The 
column  21  identifiers  are  used  to  indicate  leg  placement  of  calculations. 

If  a  (-1.)  or  leg  number  is  not  placed  in  column  21,  the  element  is  inactive 
and  will  not  be  called  for  calculation  during  the  iteration  calculation 
program  section. 


***EuivOi’.***  NO  PJ.IP  OR  TYPE  7  PRESSURE  OR  FLOW  SOURCE 

FIGURE  25  Error  Message  -  No  element  type  5 

or  type  7  available 
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5.1.1  SDSORT  AND  SORTP  SUBROUTINES 

SDSORT  subroutines  builds  the  AFBPS,  BPS  and  CONS  arrays  which  are  used 
for  leg  building.  The  junction  numbers  from  AFBP  are  placed  directly  into  AFBPS. 
Element  type  and  junction  numbers  are  taken  from  BRANCH?  and  CONNECT  and  placed 
in  BPS  and  CONS  respectively.  Additionally,  the  data  in  BPS  is  placed  in  ascending 
order  by  element  type  through  SORTP  subroutine  except  that  types  5  and  7  are  placed 
at  the  beginning  of  the  array.  Column  6  of  BPS  is  used  to  cross-reference  the  line 
location  of  the  element  in  BRANCHP  array.  Figure  27  presents  a  generalized 
flow  diagram  of  SDSORT. 


ai>7»0S*1  37 

FIGURE  27  SDSORT  SORTP  FLOW  DIAGRAM 
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5. 1.1.1  SDSORT  AND  SORTP  VARIABLE  NAMES 


Variables  Description 


AFBP 

Array  Containing  Type  13  Junction 
Numbers 

AFBPS 

Array  Containing  Type  13  Junction 
Numbers 

BPS 

Array  Containing  Dynamic  Element 

Types  and  Junction  Numbers 

BRANCHP 

Array  Containing  all  Data  for 

Dynamic  Elements 

CONNECT 

Array  Containing  all  Data  for 

Static  Elements 

CONS 

Array  Containing  Static  Element  Types 
and  Junction  Numbers 

DBP 

Variable  Used  for  Temporary  Storage 
of  BPS  Array  Variable  During  Sorting 
Element  Types 

I 

Do  Loop  Counter 

1TYPE 

Element  Type 

J 

Do  Loop  Counter 

J1 

Integer  Value  of  Element  Type  Divided 
by  10 

J2 

Unit's  Integer  Value  of 

Element  Type 

MAXT 

Maximum  Value  of  Element  Type  Used 
in  System  Data 

N 

Indicator  Used  for  Each  Dynamic 
Element  for  Transfer  of  Junction 
Numbers  to  BPS  Array  from  BRANCHP 
Array 

NBP 

Counter  Used  for  Current  Location 
in  BPS  Array 

NBP1 

Counter  Used  to  Search  all  Locations 
beyond  NBP  Location  in  BPS  Array 

N3P2 

Total  Length  of  BRANCHP  Array 

NC2 

Total  Length  of  Connect  Array 

NPA 

Count  of  Number  of  Type  5  and 

Type  7  Elements 

NPP 

Actual  Count  of  Number  of  Elements  in 
BPS 

Dimensions 
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5. 1.1. 2  SDSORT  and  SQRTP  Subroutine  Listings 


SU  BROUTINE  SDSORT ( AFBP , BRANCHP , CONNEC  f , AFBPS ,  BPS , CONS , NBP2 , NC 2 ) 
C  BUILD  ARRAYS  FOR  SORTING  DATA  5/23/79 

DIMENSION  AFBP( 1 ) ,BRANCHP( 1 ) ,CONNECT( 1 ) 

DIMENSION  AFBPS ( 1) ,BPS( 1) ,CONS( 1 ) 

DO  1  1-1,1000 
IF(AFBP(I).EQ.O.)GO  TO  2 

1  AFBPS( I)-AFBP( I) 

2  DO  3  1-1,10000 
IF(CONNECT(I).EQ.O.)GO  TO  4 
DO  3  J-1,3 

3  CONS( I+( J-l )*NC2) -CONNECT (I+( J-l )*NC2) 

4  DO  16  1-1,10000 

IF( BRANCHP( I) . EQ .0 . )G0  TO  17 
ITYPE-BRANCHP(I) 

IF( ITYPE. GT . 10)GO  TO  5 

GO  TO  (7, 7, 11, 11, 12, 11, 10, 12, 12, 11), ITYPE 

5  IF( ITYPE .EQ. 1 1)G0  TO  7 
I F ( ITY PE. EQ. 12) GO  TO  11 
Jl-ITYPE/10 
J2-ITYPE-J1*10 

IF(J1 .GT.3)G0  TO  11 
GO  TO  ( 7 ,6 ,9) , J1 

6  IF( ITYPE.EQ .25)GO  TO  13 
GO  TO  12 

7  WRITE(6,8)ITYPE 

8  FORMAT(' ILLEGAL  ELEMENT  TYPE', 14) 

GO  TO  16 

9  IF ( ITY  PE .EQ . 34)GO  TO  13 
IF( ITYPE . EQ . 35 )G0  TO  12 
GO  TO  11 

10  N-5 

GO  TO  14 

11  N-3 

GO  TO  14 

12  N-4 

GO  TO  14 

13  N-5 

14  DO  15  J-l ,N 

15  BPS( I+( J-l )*NBP2)-BRANCHP(I+( J-1)*NBP2) 

BPS( I+5*NBP2)-I 

16  CONTINUE 

17  CONTINUE 
NPA-0 

DO  18  1-1,10000 

IF(BPS(I).Eg.O.)GO  TO  19 

IF(BPS( I) .EQ.7 . .OR.BPS(I) .EQ.5. )NPA-NPA+1 

18  CONTINUE 

19  IF(NPA.EQ.O)GO  TO  27 
NBP-0 

DO  20  1-1,10000 
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5. 1.1. 2  (Continued) 


IF(BPS(I) .EQ.O.)GO  TO  21 
IF(8PS(I) .NE.5. )G0  TO  20 
CALL  SORTP(I,BPS,NBP,NBP2) 

20  CONTINUE 

21  DO  22  1-1,10000 
IF(BPS(I).EQ.O.)GO  TO  23 
IF(BPS( I) . NE . 7 . )G0  TO  22 
CALL  SORT P( I , BPS , NBP , NB P2 ) 

22  CONTINUE 

23  MAXT-BPS(l) 

NPP-0 

DO  24  1-1,10000 
IF(BPS(I) .EQ.O. )G0  TO  25 
NPP-NPP+1 

IF(BPS(I) .GT.MAXT)MAXT-BPS(I) 

24  CONTINUE 

25  DO  26  J-3.MAXT 
NBP1-NBP+1 

DO  26  I-NBP1 , NPP 
IF(BPS(I) .NE. J)GO  TO  26 
CALL  S0RTP(I,BPS,NBP,NBP2) 

26  CONTINUE 
GO  TO  29 

27  WKITE(6 ,28) 

28  FORMAT('***ERROR***  NO  PUMP  OR  TYPE  7  PRESSURE  OR  FLOW  SOURCE') 

RETURN  ' 

29  CONTINUE 
RETURN 
END 

SUBROUTINE  SORTP( I , BPS , NBP ,NBP2) 

DIMENSION  BPS(l) 

NBP-NBP+1 
DO  1  J-1,6 

DBP-BPS ( NBP+( J- 1 ) *NBP2 ) 

BPS(NBP+(J-1)*NBP2)«BPS(I+(J-1)*NBP2) 

I  BPS(I+(J-1)*NBP2)«DBP 
RETURN 
END 
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5.1.2  BUILD  SUBROUTINE 


Subroutine  BUILD  assembles  the  elements  into  legs,  see  Figure  28  for  flow 
diagram.  An  initial  search  is  made  of  AFBPS  and  BPS  to  determine  whether  any 
junction  point  number  input  into  AFBPS  is  contained  in  BPS.  If  there  is  a 
duplication,  the  junction  number  in  AFBPS  is  set  to  (-1.).  PQL  array  is  built 
next.  Each  branch  point  element  in  BPS  array  is  assigned  pressure  point  number (s) 
in  PQL  by  its  row  number.  If  the  pressure  point  is  used  as  a  fixed  pressure  for 
the  Iteration  a  positive  pressure  valve  is  assigned.  If  the  pressure  is  calculated 
during  the  iteration,  a  (-1.)  is  assigned,  see  Figure  6.  AFBPS  is  then  searched 
and  all  remaining  junction  numbers  (ones  that  have  not  been  set  to  -1.)  are  assigned 
pressure  point  numbers. 

The  first  leg  is  started  with  a  type  5  pump  or  type  7  flow,  pressure  or  accumulator 
source.  To  begin  a  leg,  BEGM  is  set  to  1.  This  is  used  as  an  indicator  for  some  elements. 
SC0NST1,  SC0NST2  and  SC0NST3  are  called  for  the  appropriate  elements  to  place  resistance 
factors  in  BLEG  array.  At  the  end  of  a  leg  BEGM  is  set  to  0.  This  also  is  used  as 
an  indicator.  Leg  building  continues  until  no  more  ports  are  available.  After  all 
element  legs  are  assembled,  internal  legs  are  added  for  type  4,  8,  36,  37  and  38. 

ILEP  array  is  next  built.  This  array  contains  the  pressure  point  number 
at  the  end  of  each  leg.  The  row  location  in  ILEP  corresponds  to  the  row  in  BLEG. 

Figure  29  is  an  example  of  the  leg  assembly  output  data. 
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End  Leg 
Begin  New  Leg 


FIGURE  28 

SUBROUTINE  BUILD  FLOW  DIAGRAM 
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FIGURE  29  Leg  Number  and  Pressure  Point  Number  Assembly 
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5. 1.2.1  (Continued) 


Variable 

Description 

Dimen: 

KP 

Integer  Counter 

— 

L 

Integer  Counter 

— 

LEG 

Row  number  in  BLEG  array 

— 

LL 

Integer  counter 

— 

M 

Integer  counter 

— 

ML 

Total  number  of  legs 

— 

N 

Integer  counter 

— 

NBP2 

Total  length  of  BRANCHP  array 

— 

NC2 

Total  length  of  CONS  array 

— 

NL 

Total  length  of  BLEG  and  ILEP  arrays 

— 

NN 

Indicator  for  storing  assembly  direction  in 
BRANCHP  array 

— 

NP 

Counter  for  number  of  pumps 

— 

NPC 

Port  column  location  in  CONS  array 

— 

NPQ 

Total  rows  in  PQL  array 

— 

NT 

Column  indicator  for  storing  leg  numbers  in 
BRANCHP  array 

— 

N1 

Indicator  for  number  of  junctions  in  element 

— 

PM1 

Junction  number  at  beginning  of  leg 

-- 

PM  2 

Junction  number  at  end  of  leg 

— 

PORT 

Junction  number  currently  being  investigated 

— 

POL 

Array  containing  calculated  pressures,  element 
types  and  junction  numbers 

— 

SUM 

Summation  of  diameter  x  length 

IN? 

SUM] 

Summation  of  lengths 

IN 
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5. 1.2.1  (Continued) 


Variable 

Description 

Dimension 

TI 

Indicator  for  element  type  7  subtype 

— 

TLEN 

Inlet  port  length 

IN 

TLN 

Summation  of  inlet  and  outlet  port  lengths 

IN 

TLNS 

Total  leg  length 

IN 

TY 

Element  type 

— 

TYL 

Row  location  of  junction  number  in  PQL  array 

— 
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5. 1.2. 2  BUILD  Subroutine  Listing 


SUBROUTINE  BUILD( ILEP ,CONS , BPS .AFBPS , 3LEG , PQL ,NBP2 , NC2 , NL , NPQ , 

1  BRANCHP, CONNECT  ,ML) 

DIMENSION  AFBPS(  1 )  ,BPS(  1 )  ,CONS(  1 )  ,  BLF.G(  1 )  ,  PQL(  1 )  ,  ILEP(  1 ) 

DIMENSION  BRANCHP(l) ,CONNECT( I) 

NP=0 

LEG=0 

UO  4  L=1 , 100 

IF( AFBPS (L) . EQ . 0 . )G0  TO  5 
DO  2  M= 1,10000 
IF(i>PS(M).Eq.O.)GO  TO  4 
TY=UPS (M) 

IF(TY.EQ.3. .0K.TY.EQ.6. .OR.TY . EQ . 10. .OR .TY . EQ . 3 1 . 
1.0K.TY.EQ.33.)GO  TO  2 
DO  1  N=2 , 5 

IF  (BPS  (»•!+(  N— 1 )*NBP2  )  .  EQ  .AFBPS(  L)  )G0  TO  3 

1  CONTINUE 

2  CONTINUE 
GO  TO  4 

3  AFUPS(L)=-1. 

4  CONTINUE 

5  CONTINUE 
KBP=0 

DO  14  1=1,10000 
IF(3PS(I) .EQ.O. )G0  TO  15 
TY=bPS( I) 

IF (  1'Y  .EQ.  3  .  .0R.TY.EQ.6.  .OR.TY.EQ.IO.  .OR.TY  .EQ . 3 1 . 
1.0R.TY.EQ.33.)G0  TO  14 
IF(TY.EQ.7. .OR.TY. EQ. 24.  .OR.TY. EQ. 25. )G0  TO  S 

X  F ( TY.EQ.4 . .OK.TY.EQ.36. .OR.TY. EQ. 37. .OR.TY. EQ. 33. .OR.TY. EQ. 91. .0 
1R.TY.EQ.92. )G0  TO  12 

1F(TY .EQ. 5 . .OR.TY. EQ.3. .0R.TY.EQ.9. .OR.TY.EQ.35. )G0  TO  13 
Nl=5 

C  ****BU ILD  PQL  ARRAY*** 

6  DO  7  J = 2  ,  N 1 

IF(TY .EQ.3 . .AND. BPS( I+(J-1 )*NBP2 ) .EQ .0. )G0  TO  14 

KBP=KBP+1 

PQL( KBP) =- 1 . 

P'.<L(NPQ+KaP)  =  I 

I F ( TY  .EQ.5.  . AND .  J  . EQ .  3 )PQL( Kt>P)  =  3000 . 

Ir( (TY.EQ.9. .OR.TY. EQ.91 . .OR . TY . EQ . 92 . ) . AND . J . Eq . 2 )PQL( KBP) =50. 
IF(TY.EQ.92. .AND. J. EQ.3. )PQL( KBP )=50. 

IF( TY.EQ.9. .AND. J .EQ.4)PQL(KBP)=50. 

PQL(KBP+2*NPQ)=TY 

7  PQL  (  KB  P+3*  Nl’Q)  “ilPS  (  I  +  (J-1  )*NBP2) 

GO  To  14 

'3  KBP=K3P+1 
PQL(KBP)  — 1 . 

PQL(  NPQ+NUP) =1 
DO  9  J=i,5 

9  PQL(KBP+(J+1 )*NPQ)=»PS( I+(J-1 )*NBP2) 
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5. 1.2. 2  (Continued) 


IF(TY .EQ.24. .OR .TY.EQ.25 . )G0  TO  14 
TI=EPS(I+3*NBP2) 

1F(T1.EQ.1. .0K.TI.EQ.4 .)GO  TO  10 
PQL(  KiiP) =<1PS  (  1+4  *NiSP2  ) 

10  00  11  KP=2 ,4 
P0L(KBP+(2+kP)*NPQ)=O. 

11  BPS(1+KP*NBP2)=0. 

00  TO  14 

12  111=3 

00  l'O  o 

13  Nl=4 

00  TO  6 

14  CONTINUE 

13  DO  16  1=1,100 

IF ( AF OPS( I ) . EQ . 0 .  )G0  TO  17 
IF(AFBPS(I).EQ.-1.)GU  TO  16 
KUP=KBI>+1 

PQL(KBP+2*NP:))  =  13. 

P()L(KBP)=-1. 

PQL(KBP+3*NPi))=AFBPS(  I) 

It)  CONTINUE 

17  CONTINUE 

DO  18  1=1,4 

I F( BPS( 1) .EQ.3.)NP=NP+1 

18  CONTINUE 
TY-ilPd(l) 

SUtl=0. 

SU.il=0. 

TEN 6=0. 

K=  1 

lF(TY.Ei).5.  )00  TO  30 
IF (TY .  EiJ .  7  .  )00  TO  32 
U  I1C=0 

DO  20  1=1,10000 
IF(C0NS(i).Eg.0.)G0  TO  33 
I F (  PORT .  El) .  CuNS  ( I+NC2 )  ) Oo  To  21 
IF(POAT.Eo.CONS( I+2*NC2))GO  TO  26 

20  CONTINUE 
00  To  33 

21  NPC=2 

22  DO  23  11=1,100 

lF(AFi»PS(  1 1 )  . ty.O.  )00  TO  2  5 
IF( PORT .EQ .AFUPS(  II)  )GU  TO  24 

23  continue 
oo  ro  25 

24  oLE0(LE0+NE)  =  P0i:r 
DLEO(LEO+3*NL)  =  5U.i/SU.Il 
BLi.Ol  Li.c+1 2*.,L)  =  TENS 
5U,  i=U . 

5Ual=U. 
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5. 1.2. 2  (Continued) 


TLNS=0 . 

LEG=LEG+l 
BL£G( LEG) “PORT 
BEG.'1=1 . 

AFBPS( I 1 )=-l . 

IF ( I1C. EQ. 1 )GO  TO  19 

IF(TY.£Q.3. .OK.TY.EQ.6. .OR.TY . EQ . 10. .OR . TY . EQ . 3 1 . 

1 .OR. TY .EQ. 33 . )G0  TO  45 

25  IF(NPC . EQ . 2 )G0  TO  27 

GO  TO  29  v 

26  NPC=3 

GO  TO  22 

27  PORT=CONS(I+2*NC2) 

2d  TY=CO'<S  ( I ) 

CONS( I+NC2 )=0. 

COME( I+2*NC2 )=0. 

CALL  S00NST1 (TLK  , LEG  ,  PORT  ,  DIAO  .DIAL  ,  ALEN , T  ,NC2  , TY ,  BLEG  , 
1NPC.NL, CONNECT  ,i>EGM ) 

SU;i=SU.;+DIAL 

SUMl=SU.ll+ALEN 

tl:js=tlns+tln 

GO  TO  19 

29  P0RT=C0N3( I+NC2 ) 

GO  10  28 

30  PORT=BPS(K+2*NaP2 ) 

BPS(K+2*NBP2)— 1. 

31  3EGM“1. 

LEG=LEG+1 
3LEG( LEG) “PORT 
BLEG(LEG+2*NL)“K 
IiJRLOO=BPS(K+5*NbP2) 

BRANCUP(IBRL0C+lt>*NBP2)=LEG 
BKANCUP(  IBKLOC+20*NiJP2)“-l . 

A=BRANCHP(  IbRLOC+5*NiJP2  ) 

IF  (  TY  .EQ . 7 .  )A=BAANCHP(  IBKLOC+2*NiSP2 ) 

1LEN=  •  1 
UIA0=5. 

CALL  SPOKT(TY , BEG.i . LEG ,A , DIAO .DIAL ,TLEN , BLEG ,NL) 

ALEIi»TLEN 

SU.i-SU.lFDIAL 

Sll,U«SUol+ALEW 

TLN- . 1 

TLNS-TLNS+TLN 
Go  TO  19 

32  P0RT-BPS(K+NBP2) 

BPS(K+NbP2)—  1. 

GO  TO  31 

GO  TO  19 

33  DO  35  I-i, 10000 

IF( Ul’S(  I )  .EQ.O .  )G0  TO  51 
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5. 1.2. 2  (Continued) 


DO  34  J=2 , 5 

IF(BPS(  I+( J-l )*NBP2)  .  EQ .  PORT)GO  TO  36 
34  CONTINUE 
Jb  CONTINUE 
CO  TO  51 

36  TY=*UPS(I) 

IBRL0C=3PS(  I+5*NBP2) 

IF(TY.EQ.3. .OR.TY.EQ.6. .OR.TY.EQ.IO. .OR.TY .EQ . 31 . 

I .OR.TY .EQ.33 . )GO  TO  43 
BPS(I+(J-1)*NBP2)=-1. 

BLEG(LEG+NL)=PORT 
BLEG( LEC+4*NL)=I 
BEGM=0 . 

CALL  SCONST3(TLN, LEG, PORT, DIAO, DIAL, ALEX, J ,TY ,BLEG , NL.BEGM 
1BRANCHP ,NBP2 , IBRLOC) 

SUM-SUtH-DlAL 

SUM1-SUM1+ALEN 

TLNS-TLNS+TLN 

BLEG(  LEG+3*NL)=SUM/SUtll 

BLEG(LEG+12*NL)=TLNS 

SU.1=0 . 

SUrll-O. 

TLNS=0. 

BRANCHP(  IBRLOC+20*NBP2)*-1 . 

IP ( TY . EQ . 9 . .OR.TY.EQ.24. .OR.TY.EQ.25. .OR.TY .EQ. 91 . )GO  TO  37 
GO  TO  33 

37  I P ( TY . EQ . 9 . ) NT=3+J 
IP(TY.EQ.24.)NT-5+J 
IF(TY.EQ.25.)NT-7+J 
I F  (  TY .  E  Q .  9 1 .  )  NT“6+ J 

IF(TY  .EQ .  9 .  . AND .  J . EQ . 4 ) BRANCHP(  I BRLOC+1 3*NBP2  )«*- 1 . 

I F ( TY . EQ . 2  4 . ) BRANCHP ( I BKLOC+( NT+3 ) *  NBP2 ) -0 . 

IF(TY  .EQ . 2  5 . ) 3RANCHP( IBRL0C+(NT+4 )*NBP2 )»0 . 
BRANC!1P(IBRL0C+NT*NBP2)«LEC 
33  DO  40  K=l, 10000 

:i-o 

lF(BPS(tC)  .EQ.O.)GO  TO  53 
DU  39  L=2 , 5 

I F (  B  P S (  R+(  L- 1 )  *NB  P2  )  .  EQ .  - 1 . ) ;  l=:-l+l 

39  CONTINUE 

DO  40  L®-1 ,  5 

IF(iJPS( K+( L~I )*NBP2) .GT.O. .AND.H.GT .0 . )G0  TO  41 

40  CONTINUE 
GO  TO  53 

41  P0Kr»BPS(K+(L-l)*NtlP2) 

BP5(t;+(L-l)*NBP2)— 1. 

I 3RL0C=  DPS (  K+:>*  NB  P2  ) 

TY-iiPS(K) 

LEG»LEG+1 

BLEG(LEG)«PORT 
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5. 1.2. 2  (Continued) 


< 


BLEC(LEC+2*NL)=K 

BECM-1. 

CALL  SCON ST3 (TLN .LEG  ,  PORT ,  DIAO ,  DIAL , ALEN  ,L  ,TY  ,  BLEC ,  ML , BEGM, 
l  BRANCilP  ,  NBP2 , 1 BHLOC  ) 

BRANCHP( I3RLOC+20*NBP2 )=-l . 

IF(TY.EQ.9. .OR.TY.EQ.24. .OK.TY.EQ.25. .OR.TY.EQ.91.)GO  TO  42 
GO  TO  19 

42  lF(TY.EQ.9.)NT=<i+L 
IF(TY.EQ.24. )NT=5+L 
IF (TY .EQ.25. )NT=7+L 
IF(TY .EQ.91 . )NT=6+L 

1F(TY.EQ.9. .AND.L.EQ.4)3RANCHP(IBRLOC+13*NBP2)»l. 
IBRL0C+NT*NBP2  )=LEG 

IF ( TY .  EQ . 24 .  ) BRANCilP ( I BRLOC+( NT+3  )*NBP2  ) - 1 . 

IF(TY .EQ.25. )BRANCtiP( IBRL0C+(NT+4 )*NBP2 )=1 . 

GO  TO  19 

43  MPC-J 

DO  44  11-1,100 

IF(AFBPS( 1 1 ) . EQ .0 . )G0  TO  45 

I F ( PORT . E Q . A FB PS ( 1 1 ) ) GO  TO  24 

44  CONTINUE 

45  BPS(  I+( J-l )*NuP2)=-2  . 

BRANCHP( IBKL0C+20*NBP2 )=LEG 

CALL  SC0NST2(TLN .LEG , PORT ,UIAO .DIAL ,ALEN .IBRLOC , NBP2 ,TY , 
1BLEG.NL, BRAMCHP.J) 

SUil-SUi-l+DlAL 
SUill-SUMl+ALEN 
TLNS-TLNS+TLN 
IF(TY. EQ . 10 . )G0  TO  46 
IF(TY -EQ.6.  )NN“12 
IF(TY.EQ.3. .0R.TY.EQ.33.)NN»6 
I F (TY . EQ . 3 1 . ) NN= 1 0 
BRANCilP  ( IBRL0C+NN*NBP2)=1 . 

IF ( J .EQ . 3 ) BRANCHP(  1  BRL0C+MM*NBP2  ) *2 . 

46  IF(J.GT.3)G0  TO  47 
GO  TO  (47 ,47 ,4d) , J 

4  7  POKT=riPS(  I+J*NBP2 ) 

BPS(I+J*NBP2)=- 2. 

GO  TO  49 

43  P0KT=BPS(I+NBP2) 

BPS(I+NSP2)»-2. 

49  110=1 
NPC-J 

DO  50  11=1,100 

IF(AF3PS( II) .EQ.O. )G0  TO  19 

IF(P0RT.EQ.AFBPS(I1))G0  TO  24 

50  CONTINUE 
GO  TO  19 

51  WKITE(6 , 52)POKT 

52  FORMAT ( '  ERROR - CANNOT  FIND  MATCH  FOR  PORT  ,F3.3) 
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5.1. 2. 2  (Continued) 

RETURN 

53  DO  55  K-l, 10000 
IF(BPS(K).EQ.O.)GO  TO  56 
TY-BPS(K) 

IF(BPS(K) .EQ.7 . )GO  TO  54 
IF(BPS(K).NE.5.)GO  TO  55 
IF(BPS(K+2*NBP2) .EQ.-l . )G0  TO  55 
GO  TO  30 

54  IF(bPS(K+NBP2).EQ.-l.)G0  TO  55 
GO  TO  32 

55  CONTINUE 

56  DO  61  1-1,10000 
TY-BRANCHP(l) 

IF(TY.EQ.0.)G0  TO  62 

IF(TY.EQ.4. .0R.TY.EQ.8. .OR.TY .EQ . 34. .OR.TY.EQ. 35 . .0R.TY.EQ.36 . .OR 
1.TY.EQ.37. .OR.TY .EQ.38.)GO  TO  57 
GO  TO  61 

57  LF.G-LEG+l 

ULEG( LEG ) -BRANCHP ( I+NBP2 ) 

BLEG(LEG+NL)«BRANCHP(1+2*NBP2) 

DO  58  J-l.NPQ 

IF(PQL(J+2*NPQ).EQ.O.)GO  TO  60 

IF( BLEG( LEG) . EQ . PQL( J+3*NPQ) . AND . BLEG( LEG+NL) . EQ . PQL( J+1+  3*NPQ ) ) 
1G0  TO  59 

58  CONTINUE 

C  ****BUILD  INTERNAL  LEGS*** 

GO  TO  60 

59  TYL-PQL(J+NPQ) 

BLEG(LEG+2*NL)-TYL 
BLEG ( LEG+  4*  NL ) -TYL 
BRANCHP( 1+15* NBP2) -LEG 

60  IF(TY. EQ. 4. . OR.TY.EQ. 36. . OR.TY.EQ. 37. . OR.TY.EQ. 38. )G0  TO  61 
IF(TY .EQ.8 . .AND .BRANUHP( I+3*NBP2 ) .EQ.O . )G0  TO  61 
LEG-LEG+1 

BLEG(LEG)-»RANCHP(l+NBP2) 

BLEG( LEG+NL)-BRANCHP( 1+3*NBP2 ) 

BLEG(LEG+2*NL)-TYL 
BLEG( LEG+4*NL)-TYL 
BKANCUP( I+16*NBP2 )-LEG 
IF(TY.EQ.8.)G0  TO  61 
LEG-LEG+1 

BLEG( LEG)-BRANCHP( I+3*NBP2 ) 

BLEC( LEG+NL) -BRANCHP( I+2*NBP2 ) 

BLEG( LEG+2*NL)-TYL 
BLEG(LEG+4*NL)-TYL 
8KANCilP(  I+17*NBP2)-LEG 
IF(TY.EQ.35.)GO  TO  61 
LEG-LEG+ 1 

BLEG( LEG )-BRANCHP( I+NBP2 ) 

BLEG(  LEG+NL)-BRANC»IP(  I+4*NBP2  ) 
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5. 1.2. 2  (Continued) 

BLEG ( LEG+  2*  NL) -TY  L 
BLEG(LEG+4*NL)-TYL 
BRANCHP(I+18*NBP2)-LEG 
LEG-LEG+1 

BLEG( LEG)-BRANCHP( I+4*NBP2 ) 

BLEG( LEG+NL)-BRANCHP( I+2*NBP2 ) 

BLEG(LEG+2*NL)-TYL 

BLEG(LEG+4*NL)-TYL 

BRANCHP(I+19*NBP2)-LF.G 

61  CONTINUE 

62  CONTINUE 

C  ****BUILD  ILEP  ARRAY*** 

DO  65  1-1,10000 
IF(BLEG(I).EQ.O. )GO  TO  66 
PMl-BLEG(I) 

PM2-BLEG( I+NL) 

BRP1-BLEG( I+2*NL) 

BRP2-BLEG(I+4*NL) 

DO  64  J-l, 10000 

IF(PQL( J+2*NPQ) . EQ.O. )G0  TO  65 

DO  63  LL-3,6 

IF(FMl .EQ . PQL( J+NPQ*LL) .AND. BRPi .EQ.PQL( J+NPQ) )ILEP( 1)-J 
ML- 1 

IF(PM2.EQ.PQL(J+NPQ*LL). AND. BRP2-EQ.PQL( J+NPQ) )ILEP(I+NL)»J 
b3  CONTINUE 

IF ( PM1 .EQ  PQL(J+NPQ*3) .AND . PQL( J+2*NPQ) .EQ . 13 . ) ILEP( I)-J 
IF(PM2.EQ.PQL(J+NPQ*3).AND.PQL(J+2*NPQ).EQ.13.)ILEP(I+NL)-J 

64  CONTINUE 

65  CONTINUE 

66  CONTINUE 

DO  68  1-1,10000 
TY-PQL( I+2*NPg) 

IF(TY.EQ.O.)GO  TO  69 
IBLOC-PQL(I+NPg) 

PQL(I+NPg)-0. 

IF(TY .EQ. 13. .OR.TY.EQ.24 . .OR.TY . EQ . 25 . )G0  TO  68 
BJCT-PQL( I+3*NPQ) 

IBRLOC-BPS( IBLOC+5*NBP2 ) 

N-2 

IF(TY .EQ .7 . )N-1 
IF(TY.EQ.34.)N-4 

IF(TY.EQ.5. .OR.TY. EQ. 8. .0R.TY.EQ.9. .0R.TY.EQ.35. )N-3 
DO  67  J-l , N 

IF(BJCT.EQ.BRANCHP(IBRLOC+J*NBP2))BRANCHP(IBRLOC+(J+N)*NBP2)-l 

67  CONTINUE 

68  CONTINUE 

69  CONTINUE 
RETURN 
END 
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5.1.3  SCONSTJ. ,  SCONST2  and  SC  ON  ST  3  Subroutines 


Subroutines  SCONST1,  SC0NST2  and  SCONST3  are  used  to  calculate  static  resistance 
coefficients  for  individual  elements.  SCONSTl  is  used  for  element  types  1,  2,  11, 

12,  21,  22,  23  and  32  which  are  all  contained  in  CONS  and  CONNECT  arrays, 

SC0NST2  calculates  the  resistance  coefficients  for  element  types  3,  6,  10,  31 
and  33.  These  elements  are  in  BRANCHP  and  BPS  array  but  are  not  branch  point 
elements.  SC0NST3  calculates  resistance  coefficients  for  the  remaining  elements 
which  are  all  branch  point  elements  in  BRANCHP  and  BPS  arrays. 

SCONSTl  starts  by  routing  the  program  flow  to  the  proper  calculation  for 
the  element  type.  The  frictional  resistance  for  the  length  of  the  element  is 
calculated  for  each  element.  If  there  is  a  change  in  flow  direction  within  the 
element,  an  energy  loss  coefficient  (DPE1)  is  assigned  or  calculated.  An  equivalent 
orifice  diameter  is  calculated  for  the  type  32  restrictors  and  placed  in  BLEG 
array.  The  type  12  heat  exchanger  calculation  determines  the  resistance  coefficient 
for  laminar  and  turbulent  flow  and  places  these  in  the  appropriate  BLEG  columns. 

A  change  in  port  size  from  inlet  to  outlet  with  a  change  in  passage  size  such  as 
the  reducer  fitting  energy  loss  is  calculated  in  SPORT  subroutine. 

SC0NST2  calculates  the  static  resistance  coefficients  for  the  element  type 
designated  above,  using  the  inlet  and  outlet  passage  lengths.  The  calculation 
is  made  through  subroutine  SPORT. 

SC0NST3  is  similar  to  SC0NST2  in  that  it  calculates  static  resistance  for 
the  length  of  the  port  passage.  Leg  number  data  is  also  placed  in  BRANCHP  array. 
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5. 1.3.1  SC0NST1  Variable  Names 


Variable 

Description 

Dimension 

A 

Inlet  port  size 

IN 

or 

16th 

IN 

ALEN 

Total  length 

IN 

ALT 

Altitude 

FT 

B 

Outlet  port  size 

IN 

or 

16th 

IN 

BEGM 

.  ,  0  =  Begin  leg 

Marker  indicator  for  leg  ^  jeg 

— 

RLEG 

General  prupose  array 

— 

B1 

Port  size 

IN 

or 

16th 

IN 

CD 

Orifice  discharge  coefficient 

— 

CD1 

Orifice  discharge  coefficient 

— 

CKL 

Laminar  flow  coefficient 

— 

CKT 

Turbulenc  flow  coefficient 

— 

CONNECT 

Static  element  data  storage  array 

— 

C2 

Rated  pressure  drop 

PSI 

C3 

Rated  flow 

GPM 

DENS 

Fluid  weight  density  at  atmospheric  pressure 

LB/FT3 

DEQ 

Equivalent  orifice  diameter 

IN 

DIA 

Port  diameter 

IN 

DIAL 

Sum  of  diameter  x  length 

IN¬ 

DIAL1 

Diameter  x  length  inlet 

IN3 

DIAL2 

Diameter  x  length  outlet 

IN¬ 

DIAO 

Previous  element  diameter 

IN 

DP 

Rated  pressure  drop 

PSI 

DPE 

Equivalent  pressure  drop 

PSI 
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5. 1.3.1  (Continued) 


Variable 

DPE1 

DPL 

DPT 

D1 

D100 

FLUIDF 

FLUIDK 

I 

LEG 

NC2 

NL 

NPC 

OD 

ORFD 

PAMB 

PORT 

Q 

TEMP 

TLEN 

TI.ENl 

TLN 

Ty 

V 

vise 


Description 

Resistance  Coefficient 

Laminar  pressure  drop 

Turbulent  pressure  drop 

Previous  equivalent  orifice  diameter 

Weight  density  at  100°F 

Viscosity-pressure  correction  factor  at  100°F 

Viscosity-pressure  correction  factor  at  fluid 
temperature 

Integer  counter 

Row  number  in  BLEG  array 

Total  rows  in  CONNECT  array 

Total  length  of  BLEG  and  ILEP  arrays 

Port  indicator 

Tube  outside  diameter 

Orifice  diameter 

Atmospheric  ambient  pressure 

Junction  number  currently  being  investigated 

Rated  flow 

Fluid  temperature 

Inlet  port  length 

Outlet  port  length 

Summation  of  inlet  and  outlet  port  lengths 
Element  type 
Rated  viscosity 

Fluid  viscosity  at  atmospheric  pressure 


Dimension 


PS  I 
PSI 
IN 

LB/ FT3 


IN 

IN 

PSI 

GPM 

°F 

IN 

IN 

IN 

CENTI STOKES 
CENTI STOKES 
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5. 1.3.1  (Continued)  -  SC0NST2  Variable  Names 


Variable 

Description 

Dimension 

A 

Inlet  port  size 

IN  or  16th  i: 

ALEN 

Total  length 

IN 

ALT 

Altitude 

FT 

B 

Outlet  port  size 

IN  or  16th  I’ 

BLEC. 

General  purpose  array 

— 

BRANCHP 

Dynamic  element  data  storage  array 

— 

DENS 

Fluid  weight  density  at  atmospheric  pressure 

LB/ FT3 

DIAL 

Sum  of  diameter  x  length 

IN2 

DIAL1 

Diameter  x  length  inlet 

IN2 

DIAL2 

Diameter  x  length  outlet 

IN2 

DIAO 

Previous  element  diameter 

IN 

D100 

Weight  density  at  100°F 

LB/ FT3 

FLU IDF 

Viscosity-pressure  correction  factor  at  100°F 

— 

FLUIDK 

Viscosity-pressure  correction  factor  at  fluid 

__ 

temperature 

IBRLOC 

Row  location  of  element  in  BRANCHP  array 

-- 

J 

Indicator  for  inlet  (2)  or  outlet  (3)  port 

— 

LEG 

Row  number  in  BLEG  array 

— 

NBP2 

Total  length  of  BRONCHP  array 

-- 

NL 

Total  length  of  BLEG  and  ILEP  arrays 

-- 

PAMB 

Atmospheric  ambient  pressure 

PSI 

PORT 

Junction  number  currently  being  investigated 

— 

TEMP 

Fluid  temperature 

°F 

TLEN 

Inlet  port  length 

IN 
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5.1.  '3.1  (Continued) 


Variable 

Description 

Dimension 

TLEN1 

Outlet  port  length 

IN 

TLN 

Summation  of  inlet  and  outlet  port  lengths 

IN 

Ty 

Element  type 

— 

vise 

Fluid  viscosity  at  atmospheric  pressure 

CENT I STOKES 

V100 

Fluid  viscosity  at  100°F 

CENTISTOKES 

5. 1.3.1  (Continued') 


SC0NST3  Variable  Names 


Variable 

A 

ALEN 

ALT 

B 

BEGM 

BLEG 

BRANCHP 

DENS 

DIAL 

DIAL1 

DIAL2 

DIAO 

D100 

FLUIDF 

FKYUDJ 

IBRLOC 

J 

LEG 

NBP2 

NL 

N1 


N2 

PAMB 


Description 

Inlet  port  size 
Total  length 
Altitude 

Outlet  port  size 

.  .  , .  r  ,  0  =  begin  leg 

Marker  indicator  for  leg  ,  ,, 

1  =  end  leg 

General  purpose  array 

Dynamic  element  data  storage  array 

Fluid  weight  density  at  atmospheric  pressure 

Sum  of  diameter  x  length 

Diameter  x  length  inlet 

Diameter  x  length  outlet 

Previous  element  diameter 

Weight  density  at  100°F 

Viscosity-pressure  correction  factor  at  100°F 

Viscosity-pressure  correction  factor  at  fluid 
temperature 

Row  location  of  element  in  BRANCHP  array 

Indicator  for  inlet  (2)  or  outlet  (3)  port 

Row  number  in  BLEG  array 

Total  length  of  BRANCHP  array 

Total  length  of  BLEG  and  ILEP  arrays 

Assembly  indicator  to  indicate  which  port  first 
assembl ed 

Inlet  (3)  and  outlet  (4)  port  indicator 
Atmospheric  ambient  pressure 


Dimension 
IN  or  16th  IN 
IN 
FT 

IN  or  16th  IN 


LB /FT 3 
IN2 


U 


v2 


IN2 


IN 

LB/' FT3 


PS  I 
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5. 1.3.1  (Continued) 


Variable 

PORT 

TEMP 

TLEN 

TLENl 

TLN 

Ty 

vise 


Inlet  port  length 
Outlet  ^port  length 

Summation  of  inlet  and  outlet  port  lengths 
Element  type 


Fluid  viscosity  at  atmospheric  pressure 
Fluid  viscosity  at  100°F 


Dimension 

°F 

IN 

IN 

IN 

CENTISTOKES 


V100 


CENTISTOKES 


5. 1.3. 2  SC0NST1  ,  SCONST2  and  SC0NST3  Subroutine  Listini 


SU BROUTINE  SCONST1 (TLN , LEG , PORT , DIAO .DIAL ,ALEN , I , NC2 ,TY , BLEG , NPC 
1 ,NL, CONNECT, BEGM) 

C  RESISTANCE  CONSTANTS  FOR  TUBE  REV  9/20/79 

DIMENSION  BL£G( 1 ) ,CONNECT( 1) 

COMMON  / BLK1 /TEMP ,V ISC , DENS , Dl 00 , PAMB  ALT ,FLUI DF, FLUIDK , V100 
IF(TY.Eg.21. )G0  TO  2 
IF(TY .EQ.22 . )GO  TO  6 

I F ( TY . EQ . 2 . . OR . T Y . EQ . 2  3 . . OR . TY . EQ . 3  2 . . OR . TY . EQ . 1 2 . ) GO  TO  7 

IF(TY.EQ.11.)G0  TO  B 

OD«CONNECT(I+3*NC2) 

IF(OD  .GE  .4  .  )0U**0D/ 16  . 

DIA-OD-( 2 . *CONNECT( I+4*NC2 ) ) 

TLEN-CONNECT(I+5*NC2) 

A-DIA 

1  CALL  SPORT(TY , BEGM , LEG ,A, DIAO , DIAL ,TLEN ,BLEG ,NL) 

ALEN-TLEN 

TLN-TLEN 

DPE1=*C0NNECT(  I+6*NC2) 

GO  TO  5 

C  RESISTANCE  CONSTANTS  FOR  45  DEG  ELBOW  REV  9/20/79 

2  DPE1-.2179 

3  A«CONNECT(I+3*NC2) 

B«C0NNECT(I+4*NC2) 

IF(NPC . EQ . 2 )G0  TO  4 
Bl-A 

A=*B 

B-Bl 

4  TLEN-3.*A 

CALL  SPORT(TY , BEGM, LEG ,A , DIAO  DIAL! ,TLEN , BLEG ,NL) 

TLEN1«3.*B 

CALL  SPORT(TY , BEGM, LEG, B, DIAO, DIAL2 ,TLEN1 , BLEG , NL) 

TLN-3.*A+3.*B 

ALEN-TLEN4TLEN1 

DUL-DIALI+DIAL2 

5  DPE*DPEl* ( ( 1 . 799E-5*D100)/ ( A**4 ) ) 
BLEG(LEG+10*NL)-BLEG(LEG+10*NL)+0PE 
IF(TY .EQ.32. )G0  TO  9 

IF( TY .EQ. 12. )G0  TO  12 
RETURN 

C  RESISTANCE  CONSTANTS  FOR  90  DEG  ELBOW  REV  9/20/79 

6  DPE1-1.2 
GO  TO  3 

C  RESISTANCE  CONSTANTS  FOR  REDUCER  FTG  &  UNION  REV  9/20/79 

7  DPE1-0. 

GO  TO  3 

C  RESISTANCE  CONSTANTS  FOR  HOSE  REV  9/20/79 

8  A»CONNECT(I+4*NC2) 

TLEN-CONNECT( I+5*NC2 ) 

GO  TO  1 
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5. 1.3. 2  (Continued) 


C  RESISTANCE  CONSTANTS  FOR  2  WAY  RESTRICTOR  REV  9/20/79 

9  ORFD-CONNECT(I+5*NC2) 

CD 1 "CONNECT ( I+6*NC2 ) 

IF(ORFD.EQ.O.)ORFD-. 00001 
IF(ORFD.GT. .9)G0  TO  11 

CD-CD1/ ( ( 1 .-(ORFD/CONN£CT( I+3*NC2) )**4)** . 5) 

10  DPE-D10O/((236.*(ORFD**2)*CD)**2) 
BLEG(LEG+10*NL)»BLEG(LEG410*NL)+DPE 
Dl»BLEG(LEG46*NL) 

DEQ-ORFD 

IF(Dl.GT.O.)0EQ-((Dl**4*ORF0**4)/(Dl**44ORFD**4))**.25 

BLEG(LEG46*NL)»DEQ 

RETURN 

11  C2-CONNECT(I+5*NC2) 

C3-C0NNECT(I46*NC2) 

ORF0"(C3/(236.*.6*((C2/D1OO)**.5) ))**. 5 
CD"  .8 
GO  TO  10 

C  RESISTANCE  CONSTANTS  FOR  HEAT  EXCH  REV  9/20/79 

12  DP  "CO  NNECT  ( 14  5  *NC  2  ) 

Q-C0NNECT(I46*NC2) 

V-C0NNECT(I47*NC2) 

CKL-DP/g 

CKT-DP/(Q**1.75) 

DPL“CKL*( V100/V) 

DPT-CKT*((V100/V)**.25) 

BLEG(LEG48*NL)-BLEG(LEG48*NL)4DPL 

BLEG(LEG49*NL)»BLEG(LEG49*NL)4DPT 

RETURN 

END 
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5. 1.3. 2  (Continued)  (SC0NST2) 


SUBROUTINE  SCONST2 ( TON , LEG , PORT , DIAO , DIAL ,  ALEN , IBRL0C , NBP2 ,  TY , 
ABLEG /NL, BRANCHP, J) 

DIi-iEftolON  BRANCHP  ( 1 ) ,  BLLG  ( 1 ) 

COi-tMON  / BLKl/TErtP , VISC ,  DEimS ,  Dl 00 ,  PAMB, ALT , FLUI DF , FLUIDK , V100 
N2=4 

IFf J.EQ.2)N2=3 
IFfTY.EQ.10. )GO  TO  2 
Nl=6 

IF(TY.EQ.3i. )N1=10 . 

1  BKAi\lCHP(  IBRL0C+N1*NBP2 )=1 . 

IF ( J . EQ . 3 ) BRANCHP ( IBRLOC+Nl *NBP2 ) =2 . 

2  A=BkANChP( IBRLQC+3*NBP2 ) 

B=BRANCHP( IBRLOC+4*NBP2 ) 

TLEN=3.*A 

TLENl=3.*B 

CALL  SPORT( TY , BEGM , LEG , A , DIAO , DIALl , TLEN , BLEG , NL) 

BRAnCHP ( IBRLOC+3*NBP2 ) =A 

CALL  SPORT  (  TY  ,BEGi>l ,  LEG ,  b ,  DIAO ,  DIAL2  ,TLeN  ,BLEG  ,NL) 

BRANCHP ( IBKLOC+4*NBp2 ) =B 
DIAO=BKANCHP( IB*LOC+N2*NtiP2 ) 

TLn=3.*A+3.*3 

ALEn=TLEN+TLEN1 

DLAl=DIAL1+DIAL2 

KeTUkN 

end 
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.1.3.2  (Continued)  (SC0NST3) 


SUBROUTINE  SC0NST3 ( TLN , LEG , PORT , D IAO , DIAL , ALEN , J , TY , BLEG , NL , BEGM , 

1 BRANCH P , NBP2 , IBRLOC ) 

DIMENSION  BLEG ( 1 ) , BRANCHP ( 1 ) 

COMMON  /BLK1 /TEMP , VISC , DENS , D1 00 , PAMB , ALT , FLUIDF , FLUIDK , V100 
IF(TY.EQ.7.)GO  TO  1 

IF(TY.EQ.2A. .OR.TY.EQ. 5. .OR.TY.EQ. 8 . .0R.TY.EQ.9. .OR.TY .EQ.35. )GO  T 
10  3 

IF(TY. EQ. 25.. OR.TY. EQ.3A.. OR.TY.EQ. 36. )G0  TO  A 

IF(TY.EQ. A. .OR.TY.EQ. 37. .OR.TY.EQ. 38. . OR. TY. EQ. 91. . OR.TY.EQ. 92. )G0 
1  TO  5 

1  A-BRANCHP(IBRLOC+2*NBP2) 

2  TLEN«3.*A 

CALL  SPORT(TY,BEGM,LEG,A,DIAO,DIAL1,TLEN,BLEG,NL) 

IF ( TY . EQ . 2  A . ) BRANCHP ( I BRLOC+( J+2 ) *NBP2 ) -A 

I F ( TY . EQ . 2  5 . ) BR ANCHP ( I BRLOC+ ( J+3 ) * NB  P2 ) -A 

ALEN-TLEN 

TLN«3.*A 

DIAL-DIAL1 

IF(TY.EQ. A.. OR.TY.EQ. 5. .OR.TY.EQ. 7. .OR.TY.EQ. 8. .OR.TY.EQ. 9. 

1. OR. TY . EQ. 91. . OR.TY.EQ. 92. )G0  TO  6 
RETURN 

3  A*BRANCHP(IBRLOC+(J+2)*NBP2) 

IF (TY .EQ. 5 . . AND. J . EQ. 3 )BRANCHP( I8RL0C+16*NBP2 )“LEG 
GO  TO  2 

A  A-BRANCHP(IBR*.OC+(J+3)*NBP2) 

GO  TO  2 

5  A«BRANCHP(IBRL0C+(J+1)*NBP2) 

GO  TO  2 

6  IF(BEGM.EQ.O. )RETURN 
TLEN1-.0001 

B-3.95 

CALL  SPORT(TY , BEGM, LEG , B , DIAO , DIAL2 , TLEN , BLEG , NL) 

ALEN-TLEN+TLEN1 

DIAL-DIAL1+DIAL2 

RETURN 

7  CONTINUE 
RETURN 
END 
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5.1.4  SPORT  Subroutine 


SPORT  is  called  through  the  SCONST1,  SC0NST2  and  SC0NST3  subroutines 
for  the  primary  purpose  of  calculating  the  static  fluid  resistance  coefficient 
for  line  and  hose  lengths,  fitting  and  port  lengths  and  changes  in  cross- 
section.  Values  of  resistance  are  summed  directly  into  BLEG  array.  Figure 
30  shows  the  general  flow  chart  for  the  subroutine. 

5 . 1 . 4 . 1  Description  of  Operation 

Subroutine  SPORT  performs  three  tasks: 

1)  Converts  port  sizes  to  internal  diameters  if  data  is  input  using 
size  option. 

2)  Calculates  static  resistance  coefficients  using  Functions  SFRICL, 
SFRICT,  SKBS  and  SKSB. 

3)  Returns  Diameter  times  Length  term  to  BUILD  subroutine  for  use 
in  calculating  the  average  diameter  of  the  leg. 

First,  a  test  is  made  to  determine  if  the  port  size  convention  used 
is  the  actual  inside  diameter  or  the  equivalent  tube  size.  If  the  input 
size  value  is  greater  than  zero  and  less  than  3.999,  the  actual  input  value 
for  size  is  used.  Input  equivalent  tube  port  sizes  of  4.0  and  greater  may 
be  used. 

Calculation  of  the  laminar  and  turbulent  frictional  coefficients  are 
made  through  SFRICL  and  SFRICT  functions  respectively.  Next,  the  local 
energy  loss  is  calculated  with  either  SKBS  or  SKSB  function.  The  laminar 
frictional  coefficient  is  summed  into  column  9  of  BLEG  array.  The  turbulent 
frictional  coefficient  is  summed  into  column  10  and  the  local  energy  loss 
is  summed  into  column  11. 


< 
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SUBROUTINE  SPORT 


FIGURE  30 

SPORT  SUBROUTINE  GENERAL  FLOW  CHART 


2 


FIGURE  30  (Continued) 
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A  calculation  of  diameter  times  length  (DIAL)  is  next  made  and  the  old 
diameter  (DIAO)  is  then  set  to  the  current  element  diameter  for  use  in 
calculating  the  next  element  local  energy  loss  coefficient. 


♦ 


5. 1.4. 2 
Variable 
A 
AA 
AB 
ALT 
BEGM 

BLEG 

DENS 

DIA 

DIAL 

DIAO 

DPCKL 

DPCKT 

DPSK 

D100 
FLU  IDF 
FLUIDK 

LEG 

NI. 

PAMB 

S7. 

S7.1 
S7  2 
TEMP 


SPORT  Variable  Names 


Description 


Dimens  ion 


Inlet  port  size 
Inlet  port  size 
Temporary  inlet  port  size 
Altitude 

Marker  Indicator  for  Leg  ^ 

1  =  end  leg 


IN  or  16th  IN 
IN 

IN  or  16th  IN 
FT 


General  purpose  array 

Fluid  weight  density  at  atmospheric  pressure 

Port  diameter 

Sum  of  diameter  x  length 

Previous  element  diameter 

Laminar  pressure  drop  coefficient 

Turbulent  pressure  drop  coefficient 

Pressure  drop  coefficient  due  to  change 
in  section  size 

Weight  density  at  100°F 

Viscosity-pressure  cotrection  factor  at  100°F 

Viscosity-pressure  correction  factor  at  fluid 
temperature 

Row  number  in  BLEG  array 
Total  length  of  BLEG  and  ILEP  arrays 
Atmospheric  ambient  pressure 
Inlet  port  size 

Intermediate  calculation  of  port  size 
Intermediate  calculation  of  port  size 
Fluid  temperature 


LB/FT3 

IN 

IN2 

IN 


LB/FT3 


PSI 

IN 


°F 
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5. 1.4. 2  (Continued) 


Variables 

Descript  ion 

Dimens  ions 

TLEN 

Inlet  port  length 

IN 

TY 

Element  type 

— 

vise 

Fluid  viscosity  at  atmospheric  pressure 

CENT I STOKES 

VI 00 

Fluid  viscosity  at  100°F 

CENTI STOKES 
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5. 1.4. 3  SPORT  Subroutine  Listing 


SUBROUTINE  SPORT( TY , BEGM , LEG , A , D I AO , D IAL , TLEN , BLEG ,NL) 

COMMON  /BLK1/TEMP.VISC, DENS, DIOO.PAMB, ALT, FLUIDF.FLUIDK.VlOO 
DIMENSION  BLEG(l) 

IF(A.LT.3.999)GO  TO  4 
SZ=*0. 

SZl-O. 

SZ2-0. 

IF(A.LT .7 . )GO  TO  3 
IF(A.LT .  13 . )GO  TO  1 
AB»A 

IF(A.GT.32.)AB-32. 

SZ2*( AB-12 . )* .004 
IF(Ari  GT.20.)SZ2«SZ2-.001 
IF( Ad.GT. 16 . )SZ2*SZ2- .001 
AA-10. 

GO  TO  2 

1  AA-A 

IF(A.Eg.ll. .0R.A.EQ.12. )AA«10. 

2  SZl*(AA-6.  )*.016 
IF(AA.GT .7 . )SZ1*SZ1-.001 

3  SZ«(A/l6.)-( .078+SZ1+SZ2) 

TLEN-(TLEN/A)*SZ 

A-SZ 

4  DIA”  A 

IF(  BEGM.Eg .0 .  )G0  TO  5 

IF( TY.EQ.4 . -OR.TY.Eg.5. .0R.TY.Eg.7. .0R.TY.EQ.8. .0R.TY.EQ.9. 

I. OR. TY. Eg. 91. .OR.TY.Eg.92.)DIAO-5. 

1F( TY.Eg.24. .OR.TY.EQ.25. .0R.TY.EQ.34. .OR. TY. Eg. 35. .OR.TY.Eg.36. 
1.0:  .TY.Eg.37. .OK.TY.Eg.38.)DIAO-A 

5  DPCKL-SF  1<ICL(  V100 , TLEN ,  0100 ,  DIA) 
3LKC(LKG+8*NL)”DPCKL+BLEC(LEG+8*NL) 

OPCKT-SFR ICT( V 100 , TLEN , 01 00 , D IA ) 
BLEG(LF.G+9*NL)-DPCKT+3LF.C(LKG+9*NL) 

I K  (  D I  AO .  LE .  0 .  )  GO  TO  6 

IF( OlAO . GT . DIA)GO  TO  7 
OPSK”SKSB( DIAO , DIA, 0100) 

GO  ro  8 

6  UPSK”0. 

GO  TO  8 

7  DPSK”SKBS( OIAO , DIA , 01 00) 

8  CONTINUE 

BLEG(LEG+10*NL)-UPSK+BLbG(LEG+10*.\L) 

OIAL«TLKN*DIA 

OIAO-OiA 

A-OIA 

RETURN 

ENO 
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5.2  CALCULATION  OF  STATIC  FLUID  RESISTANCE  COEFFICIENTS 


Two  types  of  fluid  losses  are  considered  in  SSFAN.  These  are  static 
fluid  resistance  losses  and  dynamic  losses.  Dynamic  losses  are  those  for 
which  the  resistance  factor  is  calculated  during  the  solution  procedure 
because  the  resistance  equation  used  is  dependent  on  flow  magnitude  flow 
direction  or  pressure  drop.  Dynamic  losses  are  discussed  in  section  6. 

The  fluid  losses  in  the  course  of  the  motion  of  a  fluid  are  due  to  the 
irreversible  transformation  of  mechanical  energy  into  heat.  This  energy 
transformation  is  due  to  the  molecular  and  turbulent  viscosity  of  the  moving 
medium. 

There  exist  two  different  types  of  static  fluid  losses:  1)  the 
frictional  losses;  AP^  and  2)  the  local  energy  losses  AP^ 

The  frictional  losses  are  due  to  the  viscosity  (molecular  and  turbulent) 
of  the  fluids,  which  manifests  itself  during  their  motion  and  is  a  result  of 
the  exchange  of  momentum  between  molecules  at  laminar  flow  and  between 
individual  particles  of  adjacent  fluid  layers  moving  at  different  velocities, 
at  turbulent  flow.  These  losses  take  place  along  the  entire  length  of 
the  pipe. 

The  local  energy  losses  appear  at  a  disturbance  of  the  normal  flow 
of  the  stream,  such  as  its  separation  from  the  wall  and  the  formation  of 
eddies  at  places  of  alteration  of  the  pipe  configuration  where  a  tube 
and  a  fitting  join  and  at  obstacles  in  the  pipe.  The  losses  of  dynamic 
pressure  occurring  with  the  discharge  of  the  stream  from  a  pipe  into  a 
large  volume  such  as  a  reservoir  must  also  be  classed  as  local  energy  losses. 

The  phenomenon  of  flow  separation  and  eddy  formation  is  linked  with  the 
difference  between  the  flow  velocities  in  the  cross  section,  and  with  a  positive 
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pressure  gradient  along  the  stream,  which  appears  when  the  motion  is  slowed 
down  in  an  expanding  channel,  in  accordance  with  Bernoulli's  equation. 

The  difference  between  the  velocities  in  the  cross  section  at  a  negative 
pressure  gradient  does  not  lead  to  flow  separation.  The  flow  in 
smoothly  converging  stretches  is  even  more  stable  than  in  stretches  of 
constant  section. 

Static  fluid  resistance  coefficients  are  calculated  for  all  elements 
through  the  SC0NST1,  SC0NST2  and  SC0NST3  subroutines. 

These  subroutines  utilize  the  functions  SFRICL,  SFRICT,  SKBS  and 
SKSB  through  SPORT  subroutine. 
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5.2.1  Static  Resistance  Functions 


There  are  four  static  resistance  functions.  Function  SFRICL  calculates 
a  normalized  pressure  loss  or  resistance  coefficient  for  laminar  flow  due 
to  the  length  of  the  element.  Function  SFRICT  calculates  the  turbulent 
coefficient  for  the  same  element. 

Function  SKSB  calculates  the  normalized  local  energy  loss  coefficient  for 
flow  from  a  small  diameter  element  to  a  larger  diameter  element.  Function 
SKBS  calculates  the  normalized  local  energy  loss  coefficient  for  flow  from 
a  large  diameter  element  to  a  smaller  diameter  element. 

5 . 2 . 1 , 1  Description  of  Function  Usage 

The  SFRICL,  SFRICT,  SKSB  and  SKBS  functions  generally  are  called  from 
SPORT  subroutine.  SFRICL  and  SFRIC  utilize  values  for  atmospheric  viscosity 
and  density  at  100°F,  along  with  the  passage  diameter  and  the  passage  length. 
The  laminar  and  turbulent  reference  pressure  drops  or  static  resistance 
coefficients  are  calculated  for  a  flow  of  one  gpm  and  passed  back  to  the 
calling  subroutine* 

SKSB  and  SKBS  require  the  diameter  of  the  previous  assembled  element 
for  calculation  of  the  local  energy  loss.  The  atmospheric  fluid  density  at 
100°F  is  required,  but  not  viscosity  since  the  local  energy  loss  is  independent 
of  viscosity.  These  local  resistance  energy  losses  are  referenced  to  one  gpm 
flow. 
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5. 2. 1.2  Assumptions 


The  piping  system  is  assumed  to  be  circular  and  flow  one-dimensional 
for  the  fluid  resistance  calculations.  Local  energy  losses  are  assumed 
to  occur  at  all  connecting  elements  where  there  is  a  difference  between 
the  passage  diameters  of  the  two  elements. 

5. 2. 1.3  Computations 

Frictional  Losses  -  The  Darcy  equation  for  head  loss  in  circular  pipes 
may  be  derived  by  dimensional  analysis  or  similitude  and  may  be  written 


in  the  form  of : 


2g 


(1) 


where:  hL  -  head  loss  in  feet 

f  -  friction  factor 
L  -  length  of  passage  in  feet 
D  -  internal  passage  diameter  in  feet 
V  -  fluid  velocity  in  feet/second 

g  -  acceleration  of  gravity  -  32.2  feet  per  second  per  second 
Using  appropriate  dimensional  conversion  factors,  this  equation  may  be 
rewritten  (Reference  3)  as: 

2 

A  P  =  1.799  x  10“5  f  -j  —  (2) 

d  d4 


A  P  —  pressure  drop  psi 
f  -  friction  factor 
1  -  length  of  passage  in  inches 
d  -  internal  passage  diameter  in  inches 
p  -  weight  density  of  the  fluid  in  pounds  per  cubic  feet 
Q  -  flow  rate  in  gallons  per  minute 
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Reynolds  Number  (Re)  is  a  dimensionless  ratio  of  the  fluid  inertia  forces 
to  the  viscous  forces  where: 

Re  =  PMVd  =  Vd 

-  v 

u 

u  -  absolute  viscosity 

v  -  kinematic  viscosity 

P,,  -  mass  density 
M 

d  -  internal  diameter 

V  -  fluid  velocity 

The  friction  factors  in  SSFA.N  are  defined  as  a  function  of  Reynolds 
Number  for  laminar,  transition  and  turbulent  flows;  therefore  Reynolds  Number 
is  most  conveniently  defined  in  terms  with 
Q  -  gpm 
v  -  centipoise 
d  -  inches 

With  Re  =  Vd  ^ 

V  -  in  per  second 
d  -  in 

v  -  in^  per  second 

Conversion  to  Q  in  terms  of  V  is  as  follows: 
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Q  =  60  it  2  ,, 

5't‘  >' 


or 


231  4  S_ 

60  TT  X  ,2 

d 


V  =  4.902  0  (4) 

2 

The  conversion  of  kinematic  viscosity  from  in  /sec  to  centistokes  is 

-3  2 

1  (centistoke)  =  1.55  x  10  (in  /sec)  (5) 

2 

or  1  (in  /sec)  =  645  (centistokes) 

Substituting  equations  (4)  and  (5)  into  (3)  yields 


Re  =  3161.77  £  (6) 

dv 

with  Q  -  gpm 
d  -  in 

v  -  centistokes 

The  above  equations  are  used  in  deriving  the  function  equations. 

Function  SFRICL 

SFRICL  is  a  normalized  equation  for  calculating  the  laminar  frictional 

pressure  drop  for  a  given  passage  length  of  constant  cross-section.  Using 

a  friction  factor  for  laminar  flow  (Reference  5)  of 

f  =  64 

Re 
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(7) 


* 


and  substituting  equation  (6)  for  Re  in  the  friction  factor  term  above, 


f  =  2.024  x  10"2  x 

Qd 


Substituting  equation  (7)  into  equation  (2)  yields 

2 

-7  l  pQ  dv 
AP  =  3.64x10  x  — x  -p;— x  — 


or  AP  =  3.64  x  10“x  PQ  vl  (8) 

~d* - 

To  normalize  the  above  equation  for  flow,  viscosity  and  density,  flow  is 
given  a  value  of  1  gpm,  viscosity  is  referenced  to  a  viscosity  at  atmospheric 
pressure  and  100°F  and  density  is  referenced  to  density  at  atmospheric  pressure 
and  100°F,  see  Figure  31. 


d(dia) 


Laminar  Flow  Resistance 
FIGURE  31 
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The  laminar  resistance  coefficient  or  normalized  laminar  pressure  drop 
may  now  be  defined  as  Kg  where  the  9  indicates  the  column  location  of  the 
laminar  resistance  coefficients  in  BLEG  array. 

Equation  (8)  is  now  written  in  terms  of  the  above  reference  viscosity, 
density,  and  flow  to  be 


SFRICL  =  K 


9  AP100(REF)  3*64  X  10  x  °100  y  100 


lxl 


p  -  weight  density  in  lb/per  cubic  feet  at  atmospheric  pressure 
and  100°F 

-  kinematic  viscosity  in  centistokes  at  atmospheric  pressure 
and  100°F 

1  -  length  of  passage  in  inches 

d  -  internal  passage  diameter  in  inches 
The  individual  element  Kg  values  are  sumrcd  for  each  leg  since  series 
resistances  are  additive,  see  Figure  32. 


k9(u) 


k9(ti) 


Kg (45  EL) 


Union 


Kg  (LEG)  =  2'Kg 

Elements 

Kg  (LEG)  =  Kg(U)  +  Kg(Tl)  +  Kg (45  EL)  +  Kg(T2) 


45°  Elbow 


Tube  2 
Kg(T2) 


Example  for  Summation  of  Kg  Values 
FIGURE  32 
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Using  100°F  as  a  reference  temperature  ensures  that  all  data  is  referenced 
to  a  common  reference  point.  It  should  be  noted  that  some  element 
flow  pressure  drop  data  may  be  input  for  viscosities  at  temperatures 
other  than  100°F,  but  these  data  are  converted  to  the  100°F  reference 
point  within  the  specific  subroutine. 

Examination  of  equation  (9)  will  show  that  when  the  values  of  BLEG 
array  are  multiplied  by  the  factor 


p  100  100 


LEG 


p  -  density  corrected  for  temperature  and  pressure 
v  -  viscosity  corrected  for  temperature  and  pressure 
The  true  AP  will  be  calculated  using  the  corrected  viscosity  and  density 
at  pressure  and  temperature.  This  correction  is  made  in  Subroutine  TTL  and 
is  described  more  fully  there.  Equation  (9)  when  multiplied  by  the  above 
factor  will  result  in 


LAMINAR  FRIC 


3.64  x  10 


-7 


0  v  l 
VI.EG  p 


(10) 


Function  SFRICT 

SFRICT  is  a  normalized  equation  for  calculating  the  turbulent  pressure 
drop  for  a  given  passage  length  of  constant  cross-section. 

Using  the  Blasius  friction  factor  for  turbulent  flow  (Reference  5), 


f 


.316 

(Re)  -25 


and  substituting  equation  (6)  for  Re  in  the  term  above, 

-2 


f  =  4.214  x  10 


, . 25  .25 

d  v 

25 
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Substituting  this  value  of  friction  factor  into  equation  (2)  yields 


-7  .25  25 

AP  =  7.591  x  10  d  D 


1 

d  d4 


or  when  terms  are  combined 


AP  =  7.591  x  10“7  PI  v  *25  Q1,75 


The  normalized  form  of  the  equation  is  now  found  similar  to  SFRICL  where 
density  and  viscosity  are  referenced  to  atmospheric  pressure  and  100°F 
with  Q  equal  to  1  gpm. 

The  turbulent  resistance  coefficient  or  normalized  turbulent  pressure 
drop  may  now  be  defined  as  where  10  indicates  the  column  location  of 
the  turbulent  resistance  coefficients  in  BLEG  array. 

SFRICT  -  Kw  -  AP100(ref)  -  7.591  x  10~7 „  x„0 v  100  (12) 

d4.75 


with  dimensions  and  designations  as  for  equation  (9)  above. 

Individual  element  values  are  summed  to  give  a  total  of 

Kio  aEG>  ■  E  *10 

ELEMENTS 

When  the  BLEG  K^q  values  are  used  by  TTL  for  calculation,  the  K^q  values 
(equation  (12))  are  multiplied  by 


p_£  x  V_E_ 


100 


This  then  gives  the  actual  AP  corrected  for  viscosity  and  density  at 
temperature  and  pressure. 


AP 


TURBULENT  FRIC 


=  7.591  x  10 


-7 


.25 

JP  1  Q 


1.75 


,4.75 


(13) 


LOCAL  ENERGY  LOSSES 

Losses  which  occur  in  a  system  of  connected  pipes  and  fittings 
due  to  the  change  in  diameter  from  one  element  to  the  next  are  termed  local 
energy  losses.  These  are  of  two  types:  (1)  sudden  expansion  and  (2)  sudden 
contraction. 

The  case  of  sudden  expansion  (see  Figure  33)  is  one  in  which  the 
momentum  equation  may  be  applied  together  with  the  Bernoulli  equation  to 
obtain  an  energy  loss  expression  in  terms  of  velocities,  (Reference  5).  This 
may  be  written  in  the  form  similar  to  the  Darcy  equation  where: 


P  A  -  P  A  -  -  -OP- 

P1A2  P2A2  g 


(v2-  vx) 


P^  -  Pressure  at  1 

?2  -  Pressure  at  2 

A2  -  Area  at  2 

Q  -  Flow 

p  -  Density 

-  Fluid  velocity  at  1 
V2  -  Fluid  velocity  at  2 

g  -  Gravitational  constant 
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Sudden  Expansion 
FIGURE  33 

Bernoulli's  equation  written  between  sections  1  and  2  with  the 
sudden  expansion  loss  is 

V12  +  PL  =  V22  +  P2  +  he 

2g  p  2g  p 

where  he  -  sudden  expansion  head  loss  1 

solving  for  /  P  each  equation  and  equating 

Pl~  P2  =  -2-  (V  -V,)  =  V2  ”  V1  +  he 

- -  A2g  2  1  — ^ 

Since  Q/A2  =  V r 

he  =  2V2(V2-V1)  -  V22-V12  -  (Vj-Vj)2 

2g  2g  2g 
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From  the  Darcy  equation 


Figure  34  shows  a  graph  of  this  equation. 

For  a  loss  due  to  sudden  contraction,  see  Figure  35, 


T 


FIGURE  34 

Resistance  Due  to  Sudden  Enlargements  and  Contractions 
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(r 


(14) 


•»  * 


The  same  analysis  may  be  applied,  provided  that  the  amount  of  contraction 
is  known.  The  process  of  converting  pressure  energy  into  velocity 
energy  is  very  efficient.  Therefore,  the  loss  from  1  to  0  is  small 


compared  with  the  reconversion  of  kinetic  energy  back  to  pressure  energy 
from  0  to  2 .  Applying  the  above  equations,  the  expansion  for  the  section 


From  the  continuity  equation 


V0  Cc  A2 


substituting 


C  -  contraction  coefficient 
c 


2g 


Function  SKSB 

SKSB  is  a  normalized  function  for  an  energy  loss  when  flow  is 
from  a  small  passage  to  a  larger  passage. 


123 


With  K  replacing  f  1  in  equation  (2) 

d 


‘P100  -  1-755  11  10'5  ke  =iooqi2 


Expansion 


Kj.  -  expansion  energy  loss  coefficient 
C  -  fluid  weight  density  at  100°F  (lb/f t^) 

-  flow  in  gpn  (1  gpn) 
d  -  upstream  passage  diameter  in  inches 
SKSB  calculates  the  normalized  IP  for  a  flow  of  1  gptn  and  a  fluid 
density  at  100°F.  These  energy  loss  terms  are  calculated  individually 
for  applicable  elements  and  summed  for  the  entire  leg  where  it  is  placed 
into  column  11  of  BLEG  array. 

When  the  normalized  IP  is  used  by  subroutine  TTL,  it  is  corrected 
for  actual  flow  and  density  as  follows: 


corrected 
energy  loss 


100 

Expansion 


fluid  weight  density  corrected  for  pressure 

-p 

Q  -  Actual  flow  in  leg  in  gpn 


Function  SKBS 


SKBS  is  a  normalized  function  for  an  energy  loss  when  flow  is  from  a 
large  diameter  passage  to  a  smaller  diameter  passage. 


With  K  replacing  f  1_  in  equation  (2), 

C  d 

A  P100  ,  ,, ,  ,  -5  "  100  Q  ' 

Contraction  1*/"  x  10  Kc  - — ^ 

d* 


124 


SKBS  calculates  the  normalized  IP  for  a  flow  of  1  gpm  and  a  fluid 


density  at  10GCF. 
to  the  SKS2  terms 
where  1  = 


These  energy  loss  terms  are  calculated  in  a  similar  manner 

or  placement  into  column  11  of  BLEG  array 

_P  *+• 

100  100 

Expansion  Contraction 


The  normalized  _P  is  corrected  for  flow  and  density  in  TIL  as  follows: 


?  =  '  ? 
corrected  100 

energy  loss  contraction 


_2.  x 
C  100 


-> 

Q“ 


5.2. 1.4  Approximations 


The  turbulent  friction  factor  is  approximated  by 
the  Blasius  law. 

5 . 2 . 1 . 5  limitations 


.316 

Re-^'f 


which  is 


Not  applicable. 


5.2. 1.6  Function.  -  SFRIC1 

-  SFRICT  -  SRSB  -  SEES  Variable  Names 

Variables 

Description 

Dimensions 

ADEN 

length  of  Passage  or  Section 

In 

CE 

Discontinuity  Factor 

~ 

1  lA 

Internal  Passage  Diameter 

In 

D100 

Fluid  Weight  Density  at  100CF 

Lb/Ft3 

VI 00 

Fluid  Viscosity  at  1005F 

Cent ipoise 

DOLD 

Internal  Diameter  of  Previous 
Element 

In 

DEEM 

Internal  Diameter  of  Element 

In 
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5. 2. 1.6  (Continued) 


Variables 

Description 

Dimensions 

FRIC 

Normalized 

Laminar  Pressure  Drop 

PSI/GPM 

FRICT 

Normalized 

Turbulent  Pressure  Drop 

PSI/GPM3 ‘ 

SFRICL 

Normalized 

Frictional 

Laminar  Function  for 

Resistance 

PSI/GPM 

SFRICT 

Normalized 

Frictional 

Turbulent  Function  for 
Resistance 

PSI/GPM1' 

SKBS 

Normalized  Discontinuity  Function 
from  Big  to  Small  Diameter 

PSI/GPM2 

SKSB 

Normalized  Discontinuity  Function  from 
Small  to  Big  Diameter 

PSI/GPM2 
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5. 2. 1.7  SFRICL  -  SFRICT  -  SKSB  -  SKBS  Function  Listim 


FUNCTION  SFRICL( V 100, ALE N, 0130, DI A) 

C  LAiiINAR  REFERENCE  PRESSURE  DROP  DATE  9/03/74 

FRIC=3 . 64E-7*Vl 30*ALLN*0100* ( DIA*  * ( -  4)  ) 

SFRICL=FRIC 

RETURN 

END 

FUNCTION  3 F R I C T ( V 1 0 0 , ALEN, D1 00, DIA) 

C  TURD OLE NT  REFERENCE  PRESSURE  DROP  DATE  9/03/74 

F  R I C  T=  7 . 591E-7*(V130**( .  25) ) *ALEN*ul 0  0* ( DIA** (-4. 75)  ) 
SFRICT=F  RICT 
RETURN 
END 

FUNCTION  S KS 13 (  DO L D ,  OE L.-i ,  D 1  0 0  ) 

C  DISCONTINUITY  CALCULATION  SNALL  TO  BIG  DATE  9/03/74 

CK=(  l,-(  (  DOLO/DEL.-i)  **2)  )  **2 
SKSB=CK*I.  7  9  9E-5*D100*(  HOLD**  (-4)  ) 

RETURN 

LND 

F  U UC T ION  SKBS (  HOLD ,  DELE.  ,D100) 

C  DISCONTINUITY  CALCULATION  3IG  TO  S. iALL  DATE  9/03/74 

CK  =  .  5*(l.-(  (  DLLri/DOLD)  **2)  ) 

SK3S=CK*1, 799E-5*D100*(  DLL.i**(-4)  ) 

RETURN 

LND 


127 


GB  BtAMt. 
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SECTION  VI 

CALCULATION  AND  ELEMENT  SUBROUTINES 

The  solution,  procedure  is  totally  controlled  by  the  CALC  subroutine. 

The  subroutines  used  for  computations  are  divided  into  two  sections.  Section 
6.1  describes  the  calculation  subroutines  which  include  CALC  and  TTL.  These 
subroutines  comprise  the  solution  procedure.  Section  6.2  discusses  the 
dynamic  element  subroutines  which  supply  information  to  the  calculation 
section. 
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6.1  CALCULATION  SUBROUTINES 


The  calculation  subroutines  are  CALC  and  TTL.  CALC  controls  the  entire 
solution  procedure,  and  it  computes  the  pressures  and  flows  for  the  pressure, 
return  and  suction  systems  of  the  modeled  system.  TTL  updates  all  the  dvnamic 
elements  in  the  entire  system  and  computes  pressure  drops  in  legs  using  the 
current  flow  guess.  Figure  36  is  a  general  solution  procedure  flow  chart 
for  the  calculation  subroutines. 

The  CALC  subroutine  is  called  from  the  Main  Program  SSFAN.  The  iteration 
counters,  flow  tolerance,  and  computational  arrays  are  initialized.  The 
actual  calculation  phase  begins  with  a  call  to  the  TTL  subroutine  with  the 
initial  flow  guesses  in  the  legs.  The  legs  conductances  are  computed  and  a 
call  is  made  to  SIMULT.  New  flows  are  calculated  from  the  pressures  and  com¬ 
pared  with  the  old.  If  the  convergence  criteria  is  not  met,  a  new  iteration 
is  started. 

After  the  system  has  converged  one  more  iteration  is  performed  because 
some  dvnamic  element  calculations  use  the  previous  iteration  pressure  or  flow 
values . 
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FIGURE  36 

GENERAL  SOLUTION  PROCEDURE  FLOW  CHART 
FOR  THE  CALCULATION  SUBROUTINES 


OP03-0594-1 
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6.1.1  CALC  SUBROUTINE 

The  CALC  subroutine  is  responsible  for  the  steady  state  calculations  in 
the  system.  CALC  is  called  from  the  SSFAN  Main  Program  -  SSFAN.  The  subroutine 
computes  the  pressures  at  all  the  system  pressure  points  and  flows  in  all  the 
legs,  using  resistance  coefficients  obtained  from  the  TTL  subroutine.  Figure 
37  is  a  generalized  flow  diagram  of  CALC. 

On  entry  into  CALC  the  CALC1  and  CALC2  storage  location  identification  arrays 
are  huilt,  the  CAI.C1  and  CALC2  arrays  are  zeroed,  then  the  computation  phase 
begins.  All  the  dynamic  elements  have  resistance  coefficients  calculated  from 
the  TTL  subroutine  and  stored  in  BLEG  array,  then  the  leg  conductances  are  cal¬ 
culated.  These  conductance  values,  along  with  constant  factors,  are  then  in¬ 
serted  into  CALC1  and  CALC2  arrays.  The  SIMULT  subroutine  is  called  to  compute 
the  new  pressure  values  using  the  compressed  matrix  technique.  These  pressure 
values  at  the  pressure  points  are  used  to  calculate  the  new  flow  rates  for  the 
legs  i n  system.  Wien  all  the  flows  pass  the  convergence  test,  program  control 
i  passed  to  SSFAN.  Should  the  number  of  iterations  exceed  60,  CALC  terminates 
with  the  most  recent  values  of  flow  and  pressure  and  prints  out  the  iteration 
conn  t  . 

6.1.1.]  Mu  t  h  .Mode  1 

A  step-by-step  procedure  of  the  solution  process  is  outlined  lie  1 ow  for  the 
CAM.  subroutine.  A  detailed  mathematical  explanation  is  found  in  Appndix  A 
l  this  m.tnua  I  . 

The  CALL  subroutine  controls  the  entire  solution  procedure.  The  process  can 
he  summarized  in  seven  steps: 

I.  Build  tlie  CALL!  and  CAI.C2  storage  location  identification  arr.ivs. 

.’ .  Zero  the  CALC  I  and  GALL]  arr.ivs. 

i.  Lai i  the  dynamic  element  subroutines  and  compute  resistance  coefficients 

t.  r  laminar,  turbulent  or  transition  flow  through  the  TTL  subroutine. 
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FIGURE  37 

CALC  GENERALIZED  FLOW  DIAGRAM 
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4.  Calculate  the  leg  conductances  and  input  them  and  other  constant 
factors  from  the  dynamic  element  subroutines  in  the  CALC1  and  CAI.C2 
arrays . 

5.  Call  SIMULT  using  the  compressed  matrix  technique  to  solve  the  system 
of  linear  algebraic  equations  for  the  variable  pressure  points. 

6.  Using  the  newly  calculated  pressures  from  the  matrix  solution  compute 
new  flow  rates  for  the  legs. 

7.  Compare  the  new  flows  with  the  old.  If  the  convergence  criteria  is 
satisfied,  or  the  solution  procedure  exceeded  60  iterations,  return  to 
the  Main  Program.  Otherwise  go  back  to  Step  1. 

A  computation  made  in  the  solution  of  the  steady  state  values  in  CALC  is 
the  calculation  of  QNEW.  The  purpose  of  this  is  to  establish  an  error  toler¬ 
ance  in  flows  that  is  reduced  through  iterations  to  meet  the  convergence 
criteria  as  discussed  in  Section  2.2.  The  majority  of  the  CALC  subroutine 
handles  the  bookkeeping  necessary  to  manipulate  the  leg  and  pressure  point 
numbers  in  the  svstem  to  a  version  that  is  easier  for  computations  bv  CALC. 

6. 1.1.2  Assumptions  -  See  Appendix  A. 

6 . 1 . 1 . 3  Computat ions 

On  entering  the  CALC  subroutine,  the  iteration  counters  and  flow  toler¬ 
ance  is  set.  Then  the  system  pressure  point  identification  arrays  are  built. 

A  detailed  development  of  the  system  pressure  point  identification  arrays 
is  found  in  Appendix  A  of  this  manual. 

In  the  computation  phase  the  CALC  subroutine  begins  with  initializing 
the  conductance  matrix  -  CALC1,  and  the  constant  matrix  -  CALC2,  to  zero 
values.  (See  Figure  for  a  flow  diagram  of  the  computation  phase  opera¬ 

tion.)  A  call  is  now  made  to  the  TTL  subroutine  for  each  iteration. 
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The  first  and  last  leg  numbers  of  the  system  to  be  solved  by  CALC  are  passed 
through  the  subroutine  arguments.  TTL  returns  the  value  of  leg  pressure  drop 
to  the  BLEG  array  in  column  six. 

The  conductance  values  are  calculated  for  each  leg. 

G(IQ)  =  ABS(Q(IQ) ) /BLEG (IQ, 6)  (1) 

where  IQ  =  leg  number 

ABS(Q(IQ))  =  Absolute  value  of  flow  in  leg  IQ 
BLEG(IQ,6)  =  Pressure  drop  in  leg  IQ 
G(IQ)  =  Conductance  of  leg  10 

The  conductance  values  must  now  be  entered  into  the  CALC1  matrix.  Each 
variable  pressure  point  is  worked  on  individually.  The  main  diagonal  element 
of  CALC1  contains  the  sum  of  all  the  leg  conductances  of  pressure  point  J. 

Each  off  diagonal  element  equals  the  sum  of  all  conductances  around  the 
pressure  point  J  for  multiple  legs  connected  to  common  pressure  points,  and 
the  sum  of  conductances  for  each  pressure  point  connected  to  pressure  point  J. 

The  CALC2  matrix  contains  the  constant  terms  of  the  system  of  linear 
equations  that  describe  the  model.  Constant  pressure  drops  in  legs,  external 
flows  and  constant  pressure  sources  are  all  inserted  into  this  matrix.  Any 
constant  pressure  source  or  pressure  drop  is  multiplied  by  the  conductance  of 
the  leg  it  is  associated  with.  If  leg  (5)  has  a  pressure  drop  term  -  BLEG(,5), 
then  the  BLEG(,5)  is  multiplied  by  the  conductance  for  leg  (5)  which  is  G(5), 
making  the  resulting  term  a  flow.  Thus,  all  external  flows  have  no  multipli¬ 
cation  factors. 
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With  both  CALC1  and  CALC2  filled,  the  SIMULT  subroutine  is  called 
to  solve  for  pressures  in  the  system.  The  answers  come  back  in  the  first 
column  of  the  CALC1  matrix  and  are  put  into  PQL  array,  column  1,  which  contains  all 
the  system  pressures.  A  new  flow  is  calculated  for  each  lee  in  the  system 
based  on  the  recent  calculation  of  the  pressures.  The  new  flow  is 
equal  to  the  difference  of  pressures  on  the  end  points  of  the  leg  plus 
any  constant  pressure  drops  times  the  conductance  of  the  leg. 

The  solution  for  flows  in  all  the  legs  are  final  when  all  the  previous 
flows  (Q)  and  the  latest  calculated  flows  (QNEW)  are  within  a  specified 
tolerance.  If  both  the  old  and  new  flows  are  less  than  one  GPM  then 

ABS  (Q  -  QNEW)  <  .001  (2) 

is  the  tolerance.  For  flows  greater  than  or  equal  to  one  GPM, 

.BS  ME  ,  ,001 

where  QBIG  equals  the  larger  of  Q  or  QNEW,  is  the  convergence 
criteria.  If  equations  (2)  or  (3)  are  not  satisfied  in  each  leg 
of  the  system  a  new  value  of  flow  will  be  compared  in  each  leg  by 
the  following  equation: 


* 
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These  new  flows  are  given  to  TTL  for  computation  of  new  dynamic  element  re¬ 
sistance  values  for  another  iteration.  If  all  the  legs  do  not  converge  after 
sixty  iterations,  the  cycle  stops  and  all  the  current  values  are  used  as  the 
steady-state  variables.  Before  transfer  is  made  back  to  SSFAN  a  last  iteration 
is  made  to  stabilize  pressure  drops  and  flows  for  the  steady  state  conditions. 

6. 1.1. 4  Approximations 

The  coefficients  of  the  CALC1  matrix  are  linearily  approximated  to  represent 
the  system  conductances.  Inherent  approximations  exist  in  some  of  the  constant 
data  in  CALC2. 

6. 1.1. 5  Limitations 

Most  limitations  exist  in  the  areas  of  physical  discontinuities.  CALC 
was  written  to  solve  a  flow  balance  in  a  system.  Any  flow  discontinuities  that 
occur,  such  as  in  a  simple  unbalanced  actuator,  must  have  mathematical  formula 
to  describe  what  happens  to  the  flow.  CALC  also  requires  the  leg  pressure  drops 
to  be  continuous  over  a  specified  flow  range.  When  this  does  not  occur,  as 
in  a  check  valve,  the  proper  input  from  the  check  valve  subroutine  must  be  fed 
to  CALC  so  it  may  respond  to  the  changed  conditions.  Please  refer  to  Appendix 
A  for  a  more  thorough  discussion  on  the  limitations  of  CALC. 


6. 1.1.6  CALC  Variable  Names 


Variables 
ALT 
BLEG 
BRANCHP 
CALC1 
CALC  2 
CJCT 
D 

DENS 

D100 

FLUIDF 

FLUIDK 

C 

I,  IC 
ICENT 

I  COL 

IDIAG 

LERROR 
IJ,  IM 
ILF.P 

I  NEC 

I ORDER 

IQ,  IT 
I  RENT 


Desc  r ip t Ion 

Attitude 

General  purpose  array 

Array  containing  dynamic  element  data 

MxM  array  of  conductances 

M  array  of  constants 

Pump  case  drain  port  junction  number 

Dummy  storage  array  of  JCOL  values 

Fluid  weight  density  at  atmospheric  pressure 

Weight  density  at  100°F 

Viscosity-pressure  correction  factor  at  100°F 

Viscosity-pressure  correction  factor  at  fluid 
temperature 

Array  of  conductances 

Integer  counters 

Array  containing  number  of  non-zero  elements  in 
each  row 

Array  containing  the  column  number  of  each  non¬ 
zero  element 

Array  which  identifies  which  columns  of  CALC1 
contain  positive  conductance  values 

Error  indicator  if  ^  0 

Integer  counters 

Array  of  leg  numbers  with  the  corresponding 
pressure  on  each  end 

Array  which  stores  the  second  appearance  of  a 
negative  conductance  value 

Array  giving  pivot  selection  based  on  min-row 
min -col  criteria 

Integer  counters 

Array  containing  number  of  non-zero  elements  in 
each  row 


Dimensions 


FT 


LB/FT ^ 
LB/FT  3 
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6. 1.1.6  (Continued) 


/ 


Variables 


Description 


Dimensions 


ITER  Iteration  counter 

ITERl  Final  iteration  counter 

IT, IV, IZ , I 1 , J , J1 ,  Integer  counters 

J2,J3 

JCENT  Array  which  identifies  the  number  of  non-zero 

entries  in  each  column  of  CALC1 

JCOL  Final  array  which  identifies  the  columns  in  a 

square  CALC1  array  which  are  filled  with  non-zero 

terms 


Pump  case  drain  port  junction  number 
Number  of  pressure  points 

Array  which  identifies  which  column  in  CALC1  con¬ 
tains  the  first  appearance  of  a  negative 
conductance  value  in  CALC1  arrav 

Array  which  identifies  the  number  of  non-zero 
entries  in  each  row  of  CALC1 

Integer  Variable 

K ,K1 ,K2  ,K3 ,K4 ,  Integer  counters 

K5,K6  ,K8,K9 

K7 

I.,LM,L1 
MAXITER 
MI. 

N 

Nl 

NBP2 
NI. 

NPQ 

NPQ1.2 


Temporary  storage  of  non-zero  entries  in  each 
row  of  CALCl 

Integer  counters 

Maximum  number  or  iterations 

Total  number  of  legs 

Branch  point  number  of  actuator 

Integer  counters 

Total  number  of  rows  in  BRANCH!’  array 

Total  number  of  rows  in  BI.EC  and  II. HP  arravs 

Total  number  of  rows  in  POL  arrav 

Arrav  containing  i  orrespoml ing  pressure  point 
numbers  for  constant  pressure  values  of  arrav 
POL  2 
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JCT 

JEM 

JNEG 

JRENT 

KOUNT 


6. 1.1. 6  (Continued) 


Variables 

Description 

Dimensions 

PAMB 

Atmospheric  ambient  pressure 

PSI 

PQL 

Array  of  pressure  points,  flows  and  port  num¬ 
bers 

— 

PQL2 

Array  containing  constant  pressure  values 

— 

QBIC 

Larger  of  Q  or  QNEW 

— 

QNEW 

Latest  values  of  leg  flows 

— 

TEMP 

Fluid  temperature 

°F 

TEST 

Largest  positive  value  in  D(  )  array 

— 

TEST  2 

Location  number  in  D(  )  array  containing 
largest  positive  value 

— 

TOL 

Tolerance  for  flow  balancing 

— 

TY 

Element  type 

— 

vise 

Fluid  viscosity  at  atmospheric  pressure 

CENT1ST0KES 

V100 

Fluid  viscosity  at  100°F 

CENTISTOKES 
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6 . 1 . 1 . 7  CALC  Subroutine  Listing 

SUBROUTINE  CALC(ML , N , JEM, BLEG , PQL ,CALC1 , JCOL , CALC 2 , JRENT, JCENT, 
1 ID1AG , JNEC , INEG , BKANCUP ,  NBP2 , NL ,  ILEP , IRENT , ICENT , IORDEK, ICOL , 
2NPQ) 

C  CALC  1  DEC  79 

C  CALC  COMPUTES  PRESSURES  AND  FLO.JS  IN  ALL  SYSTEMS 

COMMON  / BLKi/TEMP ,VISC , DENS , DlOO, PAMB .ALT , FLUI OF , FLUIDK , V100 
COMMON  /BLK3/NPQL2(20) ,PQL2(20) 

COMMON  /BLK7/IERROR, ITER 
DIMENSION  D( 5) 

DIMENSION  CALC 1 ( 1 ) ,CALC2( 1 ) , JCOL( i ) , JRENT( 1 ) , JCENT( 1 ) , ICOL( 1 ) 
DIMENSION  ID! AU(  1 )  ,  JNEG(  1 )  ,  INEG(  1 )  ,  BRANCrlP(  I ) 

DIMENSION  I CENT ( 1 ) , IRENT( 1) , I ORDER ( I ) 

DIMENSION  BLEG(l) ,ILEP(1) , PQL( 1 ) 

MAXITER=1 50 
TOL= .001 

1  I TER* I 
IC-O 
ITER 1=0 
rlARK-0 
1.1=0 

DO  2  I-I.flL 

IF(BLEG( I+( 2*NL) ) . LT. 1 . )BLEG( I4(2*NL) )=1 . 

DO  2  J=1,NBP2 
TY=BRANCHP( J) 

IF ( IY .NE. 5 . )G0  TO  2 
JCT-BRANCHP(J+3*NBP2) 

IF(JCT.£0.3LEG(IMNL))BLEG(I+2*NL)=(-1.) 

2  CONTINUE 

C  PRINT, 'BLEG' 

C  DO  888  1=1, ML 

C888  WRITE(  108  ,999)(BLEG( I+(J-1)*NL) ,J=1 ,16) 

C999  FORMAT ( 16F8 . 3 ) 

C  STORE  NON-ZERO  COLUMN  NUMBERS  IN  JCOL 

DO  3  K-l.ML 
I=ILEP(K) 

J=I LEP( K+NL) 

DO  3  Xl-1,2 
J1  =  I 

IF  < K.  1  .EQ. 2 ) J1*J 
DO  3  K2=l ,2 
J2-I 

IF  (K2.EQ.2)J2-J 
JO  3  K3-1  5 
J3=JCOL(Jl+(K3-l)*NL) 

IF  (J3.NE.0)GO  TO  3 
JCOL( J1+(K3-1 )*NL)-J2 
J2-0 

3  IF  (J3.E<).J2)J2«0 

C  LOAD  CONSTANT  PRESSURE  NODES  INTO  JCOL 
Nl*N 

I F (  NP()L2  (  N+ 1 )  .  NE  .0 )  N  l  =N+ 1 
A  JO  6  K=l,Nl 
I  l=NP^jL2(tC) 

DO  5  11-1,5 
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6, 1.1 4 7  (Continued) 


5  JCOL(U+(J1-1)*NL)-0 

6  JC0L(II)-I1 

C  BUILD  JRENT, JCENT;  REORDER  JOOL;  BUILD  1DI4G 
DO  12  K-l.JEM 
KOUNT-O 
DO  7  K8-1.5 
DO  7  K9-1.JEM 

7  IF  (JC0L(K9+(K8-l)*NL).Eq.K)K0UNT-K0UNT41 
JCENT(K)-KOUNT 

KOUNT-0 
DO  8  Kl-1,5 

8  IF  ( JCOL(K4(Kl-l)*NL) .NE.O)KOUNr=KOUNT4l 
JRENT(K)-KOUNT 

DO  9  1C2-1.KOUNT 

9  D(K2)»JCOL(K4(K2-l)*NL) 

DO  11  K4-1.KOUNT 
TEST-0 

DO  10  K5-1.KOUNT 
IF  (D(K5).LT.TEST)GO  TO  10 
TEST-D(K5 ) 

TEST2-K5 

10  CONTINUE 
K6-K0U  NT+ 1-  K4 
JCOL(K+(Kb-l)*NL)-TEST 

11  D(TEST2 )-0 
K7-JREN  T(K.) 

DO  12  KOUNT-1 ,K7 

12  IF  (  JC0L(K4(K0UNT-1)*NL)  .EQ.K) l JlAG(K)-KOUNT 
C  BUILD  INEG.JNEG 

DO  14  K- 1 , 1'lL 

I- ILEP(K) 

J-ILEP(K4NL) 

I I- JREN I( I ) 

Jl-JRENT(J) 

I.NEG(K)-0 
JNEG(K)«0 
DO  13  KOUNT-1, II 

13  IF  (JC0L(I4(K0UNT-1)*NL) .  E() .  J  )  JNEC(  K)-KOUNT 
DO  14  KOUNT-1 ,J 1 

14  IF  (JC0L(J+( KOUNT-l )*NL) .EQ . I) INEC( K)«KOUNT 

15  CONTINUE 

CALL  OPUT2( I LKP , BLEG ,NL , F^L , NPQ) 

INITIALISE  CALC l  ANU  CALC 2  ARRAYS  TO  2ERO 
DO  16  K-l.ML 
BLEG(K+4*NL)-0. 

16  BLEG( K+l i*NL)»0. 

DO  17  K»  l ,  J  Erl 

17  PQL( K+NBF2 )»0 . 

DO  19  Ll-l.JEM 
DO  18  <1-1, y 

18  CALC l(L14(Kl-l)*NL)“0. 

19  CALC2 ( LI )-0. 

C  COl'lPUTE  CONDUCTANCES  FOR  ObLC  ARRAYS 
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6. 1.1.7  (Continued) 


CALL  TTL(ML ,NL,BLEG ,  BRANCHP  ,NBP2  ,  ILF.P  ,PQL,NPQ) 

C  DO  887  1*1, ML 

C887  WKITE(6 ,999)( BLEG(  I+(  J-1)*NL)  ,  J*1 , 16) 

IF(IERKOR.GT.O) RETURN 
DO  20  IQ=1 ,ML 
G=BLEC(IQ+5*NL) 

Q*ABS( BLEG( IQ+2*NL)  ) 

20  BLEG(IQ+5*NL)-Q/G 

C  BUILD  THE  CALC1  ARRAY 

DO  21  K= 1 , ML 
I=ILEP(R) 

J*Il.KP(  K+NL) 

L=ILIAG(I) 

LM=  T  .  ’  I AG ( J ) 

CALcU I+(L-1)*NL)-CALC1(I+(L-1)*NL)+BLEG(K+5*NL) 

CALCl ( J+(LM-1 )*NL)=CALC1( J+(LM-1)*NL)+BLEG( K+5*NL) 

L-JNEG(K) 

LM*INEG(K) 

IF  (L.KE.0)CALC1(I+(L-1)*NL)*CALC1(I+(L-1)*NL)-BLEG(K+5*NL) 

21  IF  (L:i.NE.0)CALCl(J+(LM-l)*NL)=CALCl(J+(LM-l)*NL)-BLEG(K+5*NL) 

C  BUILD  CALC 2  ARRAY 

Nl=N 

IF(NPQL2(N+1 ) . HE .0)N1=N+1 
DO  22  1*1, N 
I 1=NPQL2 (I) 

CALC1(I1)-1. 

2 2  CALC2  (  1 1  )*PQL(  1 1  )-PQL(  Il+N'PQ) 

DO  23  1-1, JEM 

23  CALC2(I)=CALC2(I)+PQL(I+NPQ) 

DO  24  I-l.ML 

1F(BLEG(I+4*NL).EQ.O.)GO  TO  24 

CALC2( ILEP( I) )”CALC2( ILEP(  I) )-BLEG( I+4*NL)*BLEG( I+5*NL) 

CALC2( ILEP( I+NL) )=CALC2( ILEP( I+NL) )+BLEG( I+4*NL)*BLEG( I+5*NL) 

24  CONTINUE 

IF(NPQL2( N+l ) . EQ .0)G0  TO  25 
J=NPQL2( N+l ) 

CALC2(J)=.001 

25  CALL  SIMULT( JEM, ITER, CALC1 ,CALC2 , JCOL , JRENT , JCENT, ICENT , 

1 IKENT , I ORDER , ICOL , NPQ) 

DO  26  IM* 1 , JEM 
PQL( IM)*CALC1 ( IM) 

26  CONTINUE 

C  CALCULATE  NEW  FLOW  RATES 

DO  27  IT-l.ML 
1U-ILEP( IT) 

IV*ILEP( IT+NL) 

BLEG( IT+6*NL)-( PQL( I U)+BLEG{ IT+4*NL) -PQL( I V) )*BLEG( IT+5*NL) 

27  CONTINUE 

C  TEST  NEW  FLOW  RATES 

DO  31  IJ-l.ML 
Q-BLEG( IJ+2*NL) 

GNEW-BLEG( I J+6*NL) 

IF(ABS(o-QNEW)  .  LE  .  TOL)GO  TO  31 
lF(AUS(g) .CT. 1 . )G0  TO  28 
IF(AliS(<)NE.V).LE.l  .  )GO  TO  35 


6. 1.1. 7  (Continued) 


28  I b' ( A i>S ( Q )  .CT.ABS(QNEW))CO  TO  29 
QBIG=()NEW 

GO  TO  30 

29  0 BIG-0 

30  Ii'(AllS(  (Q-QNEVO/QiJIG)  .GT.TOL)GO  TO  35 

31  CONTINUE 

I F( ITE  R1 . GE . 1 ) GO  TO  32 
I TER I -ITER 1+1 
GO  TO  33 

32  CONTINUE 

00  33  1 7.-1  ,ML 
0=BLEG(  IZ+2*NL) 

IE  (Q. Eq. 0.  )uLEC(I7.+2*NL)  =  . 00001 

33  CONTINUE 

IE( ITER.GE .MAXI  TER) WRIT E( 6,34) 

IE(  1TER.GE  .iiAXITER)STOP 

34  F0R:iAT(  10X  .42HEXCEEDEU  ;UX  NO  OE  1TERATI0NS-CUECK  SYSTEM) 
IC=(J 

CALL  FLuCl!t.K(  IC  .3RANC.IP  ,NBP2  ,  BLKC  ,NL,  PQL) 

CALL  VCiiLi<( ML ,  IC  ,  BRANCHP , NBP2  ,  BLEG ,  NL ,  1 LEP  ,  PQL , NPQ ) 

CALL  ACTCH LK( U ,IC , BRANCHP , NBP2 , PQL , NPQ ) 

CALL  HTRCUK( BRANCHP, NBP2 ,IC) 

IE(IC.NE.0)C0  TO  1 
RETURN 

RECALCULATE  FLOW  RATES 

35  DO  36  1=1, ML 
Q«3LKC(I+2*NL) 

QNEU=ttLKG( I+6*NL) 

BLEG(  I+2*ML)  =  (Q+Qi,’EiJ)/2 . 

IF ( Q. EQ. 0.  )1)LF.G(1+2*NL)=. 00001 

36  CONTINUE 

IF( ITER -EQ. MAXITF.R  )G0  TO  32 

ITER-ITEK+1 

GO  TO  15 

END 
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6.1.2  TTL  Subroutine 


The  TTL  subroutine  updates  all  the  system  leg  values  by  calling  the 
dynamic  element  subroutines.  The  dynamic  subroutines  give  pressure  at  a 
pressure  point,  flow  in  a  leg,  or  the  change  in  pressure  (AP)  in  a  leg. 

These  values  returned  by  the  element  subroutines  are  found  in  column  5  or 
column  12  of  the  BLEG  array  or  columns  1  or  2  of  the  PQL  array.  This  value  in 
column  5  of  BLEG  represents  the  AP  term.  The  one  in  column  12  corresponds  to 
energy  loss  coefficients  in  a  leg  due  to  valves  and  orifices.  PQL  column  1 
is  the  pressure  point  value  and  PQL  column  2  is  a  flow  loss  or  gain  at  a  pres¬ 
sure  point. 

Once  the  dynamic  elements  in  a  leg  are  called,  viscosity  and  density 
corrections  factors,  and  the  leg  Reynolds  number  are  calculated  using  the 
average  leg  pressure.  The  Reynolds  number  determines  the  proper  equation 
to  be  used  to  account  for  all  the  element  pressure  drops  as  a  function  of 
leg  flow.  One  of  three  equations  are  generated  depending  on  whether  the 
flow  is  laminar,  turbulent,  or  in  transition.  The  resulting  equation  is 
evaluated  at  the  leg  flow  rate  and  the  pressure  drop  value  is  set  into 
the  sixth  column  of  the  BLEG  array. 

Each  leg  in  the  system  is  processed  in  the  same  manner.  First ^the 
leg's  dynamic  elements  are  updated  then  the  leg  pressure  drop  is  calculated  and 
stored  in  BLEG.  After  the  final  leg,  program  control  is  passed  back  to  the 
calling  subroutine.  A  descriptional  flow  chart  of  the  TTL  subroutine  is  shown 
in  Figure  39. 

6.1.2. 1  Math  Model 

The  average  pressure  for  a  leg  is  calculated  by  using  the  upstream  and 
downstream  pressures  found  in  the  PQL  array.  The  location  of  the  pressure 
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DO  FOR  EACH 
BRANCHP ELEMENT 
IL  =  1,  NBP2 


FIGURE  39 

TTL  SUBROUTINE  DESCRIPTION AL  FLOW  CHART 
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points  in  PQL  for  each  leg  is  found  in  the  ILEP  array. 

PAVG  =  (PQL (ILEP (IQ, 2) , 1)+PQL(ILEP (IQ ,3) ,l))/2.  (1) 

where  IQ  =  the  current  leg  number 
The  average  pressure  is  used  in  the  calculation  of  a  viscosity- 
pressure  correction  factor  VISCP. 

VISCP=VISC*EXP (FLUIDK*PAVG)  (2) 

where  VISC  =  Fluid  Viscosity  at  System  Operating  Temperature 
and  Atmospheric  Pressure 

FLUIDK  =  Fluid  Correction  Factor  -  Temperature  Compensated 
PAVG  is  also  used  for  a  density-pressure  correction  factor  DENP. 

DENP  =  (1.  +(PAVG/200000.))*DENS  (3) 

where  DENS  =  Fluid  Density  at  System  Temperature  and  Atmospheric 
Pressure 

Since  the  leg  resistance  coefficients  are  adjusted  to  a  reference  viscosity 
and  density  at  a  temperature  of  100°F,  the  VISCP  and  DENP  correction  terms 
are 

CFVP  =  VISCP/V100  (A) 

and 

CFDP  =  DENS/D100  (5) 

The  Reynolds  number  is  calculated  for  each  LEG  by  the  following 
equation: 

RE  =  (3163.*F)/DIA*VISCP  (6) 

where  F  =  Absolute  value  of  flow  in  a  leg  (GPM) 

DIA  =  Leg  average  diameter  (IN) 


14H 


The  calculation  of  the  Reynolds  number  is  used  to  determine  the  LEG  flow 
equation.  Pressure  drop  (DP)  for  each  leg  is  calculated  using  columns  8  thru 
12  of  the  BLEG  array.  The  DP  equation  is  of  the  form: 

DP  =  Kf  +  K2Q  +  K/-75  +  K4Q2  +  K5Q  (7) 

where 

=  BLEG(IQ,8)  fixed  constant  pressure  drops 
K2  =  BLEG(IQ,9)  laminar  resistance  coefficients 
=  BLEG(IQ,10)  turbulent  resistance  coefficients 

=  BLEG(IQ,11)  local  energy  loss  coefficients 

=  BLEG (IQ, 12)  leakage  resistance  coefficients 

IQ  s  Leg  Number 

The  K2  and  terms  are  corrected  with  both  the  viscosity-pressure 
coefficient  (CFVP)  and  the  density-pressure  coefficient  (CFDP) .  is  only 

density-pressure  corrected  and  is  viscosity-pressure  corrected. 

Laminar  flows  for  Reynolds  numbers  less  than  100  use  columns  8,  9,  11 
and  12  of  BLEG  for  the  DP  calculation.  Turbulent  flows  with  Reynolds 
numbers  greater  than  1800  use  BLEG  columns  8,  10,  11  and  12.  For  transition 
flows  between  100  and  1800  a  maximum  laminar  and  minimum  turbulent  flow  is 
calculated  using  100  and  1800  for  the  Reynolds  numbers  in  equation  (6)  and 
solving  for  flows.  These  flows  yield  a  DPMAXL  and  DPMINT  terms  when  inserted 
into  the  proper  pressure  drop  equation.  QMAXL  and  DPMAXL  define  a  point  on 
a  Flow  vs  Pressure  Drop  graph.  QMINT  and  DPMINT  define  the  other  point. 

The  value  for  the  leg  pressure  drop  results  from  interpolating  between  these 
two  points  using  the  current  leg  flow  rate.  For  a  DPMINT  greater  than  20000 
the  laminar  equation  only  is  used  to  give  the  leg  pressure  drop. 
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None . 


6. 1.2.4  Approximat ions  -  Not  applicable. 

6. 1.2. 5  Limitations  -  Not  applicable. 
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6. 1.2. 6 

Variable 

ALT 

BLEG 

BRANCHP 

CFDP 

CFVP 

DENP 

DENS 

DIA 

DP 

DPXL 
DP  XT 
DlOO 
F 

FLUIDF 

FLUIDK 

I  ERROR 
IL 

ILEP 

IQ 

ITER 

ML 

NBP2 

NL 


TTL  Variable  Listing 

Description 

Altitude 

General  purpose  array 

Dynamic  element  data  storage  array 

Pressure  corrected  density  coefficient 

Pressure  corrected  viscosity  coefficient 

Density-pressure  correction  factor 

Fluid  density  at  system  temperature  and 
atmospheric  pressure 

Leg  diameter 

Leg  pressure  drop 

Laminar  pressure  drop 

Turbulent  pressure  drop 

Density  at  100°F 

Absolute  value  of  leg  flow 

Viscosity-pressure  correction  factor  at  100°F 

Viscosity-pressure  correction  factor  at  fluid 
temperature 

Error  indicator  if  £0 

Element  row  location  in  BRANCHP 

Array  of  leg  numbers  with  the  up  and  downstream 
pressure  points 

Leg  number 

Iteration  counter 

Total  number  of  legs 

Total  number  of  rows  in  BRANCHP  array 

Total  number  of  rows  in  BLEG  and  ILEP  arrays 


Dimension 

FT 


LB/FT3 


IN 


2 


PSID 

PSID 

LB/FT3 

GPM 
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Variable 

Description 

Dimension 

NPQ 

Total  number  of  rows  in  PQL  array 

— 

PAMB 

Atmospheric  ambient  pressure 

PSI 

PAVG 

Average  pressure  of  a  leg 

PSI 

PCT 

Percent 

PQL 

Array  of  pressure  points,  flows  and  port 

numbers 

— 

QMAXL 

Maximum  laminar  flow 

GPU 

QMINT 

Minimum  turbulent  flow 

GPM 

Q1200 

Flow  when  Reynolds  Number  equals  1200 

GPM 

RE 

Reynolds  Number 

-- 

TEMP 

Fluid  temperature 

0  F 

TLAM 

Reynolds  Number  at  which  flow  is  totally 

laminar 

— 

TTURB 

Reynolds  Number  at  which  flow  is  totally 

turbulent 

— 

TY 

Element  type 

— 

vise 

Fluid  viscosity  at  system  operating  temperature  and 
atmospheric  pressure 

— 

VISCP 

Viscosity  -  pressure  correction  factor 

— 

VI 00 

Viscosity  at  100°F 

CENT I STOKES 

6. 1.2. 7  TTL  Subroutine  Listing, 


SUBROUTINE  TTL(.1L  ,NL,BLEG  ,iiRANCHP ,  N3P2  ,  ILEP,  PQL, NPQ) 

C  TTL  1  DEC*79 

COMMON  /BLK1/TEMP, VISC, DENS, DIOO.PAMB, ALT, FLUIDF, FLU I0K.V100 
DIMENSION  ILEP(L)  ,  PQL(  L)  ,  BLEG(  1 )  , BRANCriP(  1 ) 

COMMON  /BLK6/VISCP.DENP 
COMMON  /  BLK.7  /  1ERROK  ,  ITER 
TLAM= 100 . 

TTURB-1800. 

I F ( TTU  RB  . LT . TLAH ) TTU RB=TLAi  i 
DO  1  IL=1,NBP2 

IF (3RANCHP( I L) . EQ . 0 . )G0  TO  2 
IF(bRANCHP(IL+20*NBP2).EQ.C.)GO  TO  1 
TY=NRANCHP( IL) 

I F ( TY . EQ . 5 . ) CALL  DP UM5 ( IL , BRANCH P , N BP2 , BLEG , ML , PQL , NPQ , I LE P ) 
IF (TY  .  EQ  .  9  .  )CALL  ORES V(TY  ,  IL  , BRANCH P ,  NBP2  ,  BLEG ,  NL ,  PQL  ,NPQ) 

I F (TY . EQ .91  .  )CALL  DRESV ( TY  ,  IL ,  BRANCilP  ,  NBP2  , BLEG  ,  NL ,  POL  ,  NPQ) 
IF(TY.EQ.92 • )CALL  DRESV( TY , IL , BRANCH P , NBP2 , BLEG , NL , PQL ,NPQ) 

I F  (  TY .  EQ .  2 4  .  ) CAL L  DTF.E  2  4  (  I L ,  BRANCH P  ,  NB P2  ,  BLEG  ,  N L ) 

I F  (  TY  .  E  Q .  2  5 . )CALL  DCRO 2 5 ( I L , BRANCH P ,NBP2 ,BLEG,NL) 

IF(  TY .  EQ. 4  .  )CALL  DACT4(  IL  ,  BKAMCilP  ,NilP2  , BLEG  NL,PQL,NPQ) 

IF(TY  .EQ  .3  .  )CALL  DCKV3  (  IL  ,  BRANCiiP  ,NBP2  ,  BLEG  ,  NL) 

I  F( TY  .  EQ .  3 1 .  )CALL  ORlL'3 1  (  I L ,  BRANCIIP  ,NBP2  ,  BLEG  ,  NL) 

IF(TY.EQ. 33. )CALL  DVKE33( IL ,  BRANCHP , NBP2 , BLEG , NL) 

IF ( TY . EQ . 34 . )CALL  DVS034(TY , IL , BRANCHP ,NBP2 ,  BLEG, XL, PQL ,NPQ) 
IF(TY  .EQ.35.  )CALL  DVS034( TY  ,  I L ,  BRANCH P , NBP2  ,  BLEG  , NL ,  PQL , NPQ) 
I F ( TY . EQ . 36 . )CALL  DVS034(TY , IL , BRANCHP ,NBP2 , BLEG , NL , PQL , NPQ) 
IF( TY  . EQ .  3 7  .  )CALL  DVS034(  TY  ,  IL ,  BRANCilP  ,  NBP2  , BLEG ,  NL  ,  POL ,  NPQ) 
I F ( TY . EQ . 3o . )CALL  DVS034( TY , IL , BKANCHP , NBP2 , BLEG , NL , PQL , NPQ) 
I e ( TY . Eq . 1 0 . ) C ALL  DPEC 10 ( I L , B RANG HP , N BP2 , BLEG , NL) 

IF (TY . EQ. 6 . )CALL  UFIL6( I L , BRANCUP , NBP2 , BLEG , NL) 

I F ( TY . EQ . 7 . ) C ALL  0ACC7 ( I L , BKANCHP , N BP2 , PQL , NPQ ) 

IF(TY.EQ.6.  )CALL  DilTK8(  IL ,  BRANCHP ,  NBP2  ,  PQL  , NPQ,  BLEC ,  NL) 

1  CONTINUE 

2  DO  13  IQ=1 ,ML 
DIA=BLEG(  IQ+3*NL) 

I F ( 0 I A . EQ . 0 . 0 ) D I A= . 000 1 
F=ABS( BL£G( Iq+2*NL) ) 

PAVG=(  1»QL(  1LEP(  IQ)  )+PQL(  ILLP(  IQ+NL)  )  )/2  . 

I F  (  P  AVG  .  LE  .  0 . 0  )  GO  TO  3 

IF ( PAVG . GT .20000 . ) PAVC=20000 . 

FLUIDK»3LEG(1Q+14*NL) 

VISC*BLEG( IQ+15*NL) 

VISCP“VISC*EXP( FLU  I DK* PAVG) 

GO  TO  4 

3  VISCP-VISC 

4  DENP*( 1 .+( PAVG/ 200000 . ) )*DENS 
I F ( UE  NP . LE . 0 . 0 ) DENP-DEMS 
RE»( 3  16 l .7  7*F)/ (DIA*VISCP) 

CFVP-VISCP/V100 

CFDP-DENP/D100 


6. 1.2. 7  (Continued) 


5  DPXL=BLEG(  IQ+7*NL)+F*CFV  P*CFDP*bLEC(  IG+S*NL)+F*bLEG( IQ+1 1*NL) 
DPXL=DPXL+BLEG(  IQ+10*NL)  7tCFDP*F**2 

DPXT=BLEG( IQ+7*NL)+BLEG( IQ+1 1*NL)*F 
DPXT=DPXT+CFDP*(CFVP**  . 25  )*BLF.G(  I^+9*NL)* ( F**l .  75 ) 
DPXT-DPXT+CFDP*BLEG(IQ+10*NL)*(F**2) 

IF( RE . LE . TLAM)GO  TO  8 
IK ( RE . CE . TTURB )G0  TO  9 

6  QMAXL=(TLA:i*DIA*VISCP)/3161 .77 
Q.'iINT=(TTURB*DIA*VISCP)/3161 . 77 
Q1200=(1200.*DIA*VISCP)/3161 .77 
I  F(TTURB  .  LF, .  1 200 .  )G0  TO  10 
IF(TLA;i.GE.1200.  )GO  TO  10 
IF(RE.GT. 1200. )GO  TO  11 

PCT=(  F-QMAXL)/  (  Ql  200-Q:iAXL) 

7  DP=PCT*DPXT+( 1 . -PCT) *DPXL 
GO  TO  12 

8  DP=L)PXL 
GO  TO  12 

9  DP=DPXT 
GO  TO  12 

1 0  PCT=  (  F-QEiAXL)  /  (  Q.iINT-QMAXL ) 

GO  TO  7 

1 1  PCT=(  F-Ql  200)/  (OMI.VT-Ql  200) 

GO  TO  7 

12  i>LEG(  Iq+5*ML)=DP 

13  CONTINUE 
RETURN 
FN  0 
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6. 


DYNAMIC  ELEMENT  SUBROUTINES 


Dynamic  subroutines  are  called  during  the  iteration  portion  of  program 
execution.  Dynamic  resistance  coefficients  are  calculated  at  this  time 
because  the  flow  direction  in  a  leg  may  not  be  known.  This  difference  is 
particularly  noted  in  an  element  such  as  a  check  valve  with  free  flow  allowed 
in  one  direction  and  zero  flow  allowed  in  the  opposite  direction.  Generally, 
a  dynamic  subroutine  is  required  for  all  elements  that  have  moving  parts  such 
as  poppets,  pistons,  rotating  groups,  etc.  During  the  assembl”  nhase  of  the 
program,  identifiers  for  pressure  points  and  the  connecting  leg  numbers  are 
placed  in  the  element  data  array.  Also,  some  elements  require  an  identifier 
for  the  direction  the  leg  was  assembled  through  the  element  to  determine  the 
correct  sign  for  flow  direction.  These  are  also  generated  during  the  assembly 
phase.  With  this  information,  the  correct  equations  for  calculating  resistance 
coefficients  are  selected  or  an  assumed  flow  condition  is  assigned  for  some 
elements.  These  resistance  coefficients  are  dependent  on  flow  direction, 
flow  magnitude  and  pressure  or  pressure  drop.  The  resistance  coefficients 
calculated  during  the  iteration  process  are  recalculated  each  iteration  and 
are  stored  in  BLEG  array  columns  5  and  12.  After  the  system  is  balanced,  a 
check  is  made  to  see  that  the  assumed  flow  condition  for  element  types  3,4,5, 
8,31,33,37  and  38  is  correct.  If  not,  the  initial  assumed  flow  condition  is 
changed,  and  the  system  is  rebalanced. 


6.2,1  Subroutine  DCKV3 


DCKV3  is  the  dynamic  element  model  for  a  check  valve. 

6.2. 1.1  Math  Model 

The  check  valve  is  generally  of  the  type  shown  below  -  Figure  40 
with  a  spherical  seat  or  conical  seat.  A  spring  is  placed  behind  the 
moving  poppet  to  ensure  positive  seating  in  the  reverse  flow  direction. 
The  spring  determines  the  cracking  pressure  of  the  valve. 


Size  1  - 


Junction  1 
(Always  "In” 
Free  Flow  Direction)- 


ci 

m 

y 

-  (Free  Flow  >  - 

Size  2 


Junction  2 


(Jonit.il  Valve 


FIGURE  40 
CHECK  VA1  'T 
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6. 2. 1.2  Assumpt ions  -  Not  applicable. 


6.2. 1.3  Computations 

When  DCKV3  is  called  from  TTL  subroutine,  the  inlet  port  diameter,  cracking 
pressure  and  flow  indicator  (FI)  are  initialized.  The  flow  indicator  is  used 
to  establish  the  resistance  factor  to  be  used  for  calculation.  On  the  initial 
flow  balance,  the  flow  is  considered  to  be  in  the  unchecked  direction  (F1=0) . 
After  the  system  is  balanced  a  flow  gradient  check  is  made  of  the  leg  in  which 
the  check  valve  is  located.  If  the  flow  gradient  is  opposite  the  initial 
assumed  flow  direction,  a  (-1.)  is  placed  in  the  flow  indicator  position 
in  BRANCHP  array  by  VCHEK  subroutine.  VCHEK  also  passes  an  indicator  to  CALC 
subroutine  to  indicate  a  system  rebalance  is  necessary.  When  the  system 
is  rebalanced,  the  high  resistance  factor,  checked  position,  is  used  for 
calculation.  This  method  has  improved  stability  in  calculation  over  the 
previous  method . 

If  the  flow  is  in  the  normal  flow  through  direction,  the  equation  is  of 
the  form 

AP  =  A  *  (Q**l . 75) 

Where  A  =  constant 
Q  =  flowrate 

If  the  flow  is  in  the  checked  direction,  a  high  resistance  is  input  as 
AP  =  3.E7 

The  resistance  coefficient  is  placed  in  BLEO  column  12. 

6 . 2 . 1 . 4  Approximations 

The  check  valve  data  was  derived  from  a  manufactures  flow  versus  pressure 
drop  chart  for  various  size  check  valves. 

For  sizes  smaller  than  -4  and  larger  than  -20,  the  constants  for  calculation 
are  extrapolated. 

6 . 2 .  1 . 5  l.imi  tat  ions  -  None . 

6.2.2  Entry  DR1W31 

DR1W31  is  the  dynamic  element  model  for  a  one  way  restrictor. 
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6. 2. 2.1  Math  Model 


The  one  way  restrictor  schematically  is  similar  to  a  check  valve, 

Figure  41.  In  the  free  flow  direction  the  poppet  operates  similar  to  the  check 
valve.  In  the  restricted  flow  direction  the  poppet  is  closed  and  flow  is 
restricted  through  the  orifices. 

Junction  1 
(Always 
Restricted  Flow 


Restricted 


Flow 


-i  K 


FIGURE  41 
1-WAV  RESTRICTOR 

6 . 2 . 2 . 2  Assumptions  -  Not  applicable. 

6 . 2 . 2 . 3  Computations 

The  math  model  for  the  one  way  restrictor  is  similar  to  two  other  models. 

The  free  flow  calculation  is  similar  to  the  check  valve,  section  6.2.1.  Un¬ 
restricted  flow  calculations  are  similar  to  the  two  wav  restrictor. 

I 


J 

< 


158 


The  flow  is  considered  to  be  in  the  restricted  flow  direction  for  the 
initial  flow  balance.  After  the  system  is  balanced,  a  check  is  made  by  VCHEK 
subroutine  to  determine  whether  or  not  the  assumed  flow  direction  was  correct. 
If  not,  a  (-1)  is  placed  in  the  flow  indicator  position  in  BRANCHP  array  by 
VCHEK  and  an  indicator  is  passed  to  CALC  indicating  a  system  rebalance  is 
necessary.  When  the  system  is  rebalanced  the  free  flow  direction  resistance 
constants  are  used. 

6. 2. 2. A  Approximations  -  Not  applicable. 

6.2.2. 5  Limitations  -  None. 


159 


6.2.3  Entry  DVRE33 

DVRE33  is  the  dynamic  element  model  for  a  relief  valve. 

6. 2. 3.1  Nath  Model 

The  relief  valve  is  shown  in  Figure  42 .  It  is  similar  to  a  check 
valve  in  operation  except  the  spring  is  much  stronger.  The  spring  determines 
the  relief  valve  cracking  pressure. 


Size  2 


Junction  2 


Conical  Valve 


FIGURE  42 
RELIEF  VALVE 


6. 2. 3. 2  Assumptions  -  Not  applicable. 


6. 2. 3. 3  Computations 

When  DVRE33  is  called  from  TTL  subroutine  the  inlet  port  diameter,  relief 
pressure  and  flow  indicator  (FI)  are  initialized.  The  flow  indicator  is  set 
to  zero  and  on  the  initial  flow  balance,  the  relief  valve  will  not  open.  After 
the  system  is  balanced,  VCHEK  is  called  and  a  check  is  made  to  see  if  the 
assumed  condition  (no  relief  flow)  was  correct.  If  not,  the  flow  indicator  is 
set  to  (-1)  in  BRANCHP  array  and  another  indicator  is  passed  to  CALC  subroutine 
to  indicate  a  system  rebalance  is  necessary.  The  calculations  are  similar 
to  the  check  valve  for  relief  flow  conditions. 

6. 2. 3. A  Approximations  -  Not  applicable. 

6.2. 3. 5  Limitations  -  None. 
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6. 2. 3. 6  DCKV3  -  DR1W31  -  DVRE33  Variable  Names 


Variables 

Description 

Dimens  ion 

A 

Array  of  constants 

— 

ALT 

Altitude 

FT 

B 

Check  valve  constants 

— 

BLEG 

General  purpose  array 

-- 

BRANCH? 

Dynamic  element  data  storage  array 

— 

CK 

Resistance  coefficient 

PSI/GPM 

Cl ,C2,C3 

Array  input  values 

— 

C4 

Equivalent  orifice  diameter 

IN 

DENS 

Fluid  density  at  system  temperature  and 

atmospheric 

'l 

pressure 

LB /FT 

DP 

Resistance  coefficient 

PSI/GPM 

DPI 

Resistance  coefficient 

PSI/GPM 

1)1 00 

Viscosity  at  100°F 

CENT I  STOKES 

FI 

Flow  direction  indicator 

— 

FLU IDF 

Viscosity  -  pressure  correction  factor 

at 

100°  F 

— 

FI UIDK 

Viscosity  -  pressure  correction  factor 
temperature 

at 

fluid 

— 

I 

Integer  counter 

— 

11, 

Row  number  in  BRANCHP  array 

— 

LHC 

Leg  number  (row  in  BLEG) 

— 

M 

Row  number  in  element  array 

— 

\1JP2 

Total  number  of  rows  in  BRANCHP  array 

-- 

NL 

Total  number  of  rows  in  BLEG  array 

— 

PA  MB 

Atmospheric  ambient  pressure 

PS  I 

PS 

Port  diameter 

IN 
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Variables 

Descript  ion 

Dimens  ion 

Q 

Flow  rate 

GPM 

TEMP 

Fluid  temperature 

°F 

vise 

Fluid  viscosity  at  system  operating  temperature 

— 

and  atmospheric  pressure 

VI 00 

Viscosity  at  100°F 

CENT  ISTCK.F 

6 . 2 . 3 . 7  DCKV3  -  DR1M31  -  DVRE33  Subroutine  Listing 


SUBROUTINE  L)CKV3(  1L , BRANCriP ,NBP2  ,  BLEG , NL) 

DYNAMIC  RESISTANCE  FOR  CtiK  VALVE  DATE  6/13/78 
DIMENSION  A( 7) , B(6) ,PS( 7 ) 

COrl.-lON  /aLKl/TEMP,VISC,DENS,D100,PAi-lB,ALT,FLUIDF,FLUIDK,V100 
DIMENSION  BRANCUP(l)  ,BLEG(1) 

Data  a/ 4. 60S 73 , .955169, .369931 , .138549, .0549938 , .0258037  .0121475/ 
DATA  PS/. 172,. 297,. 391,. 464,. 609,. 844, 1.073/ 

DATA  a/ 12. ,21. ,27. ,32. ,42. ,57./ 

M-IL 

LEG»aRANCHP(.H-20*NBP2) 

FI  =  BRANCliP(M+7*NBP2) 

IF(FI .LT.O. )GO  TO  10 
C2-BRANCHP(M+5*NBP2) 

C1*BRANCHP(M+3*NBP2) 

1  Q=ABS(BLF.G(LEG+2*NL)) 

DO  2  1-1,6 

IF((C1*64.).LT.B(I))G0  TO  3 

2  CONTINUE 
1=7 

3  IF(I.EQ.1)G0  TO  4 
IF(I.EQ.7)CO  TO  5 

DP=( A( I)-( (A( I)-A( 141) )*(C1-PS( I ) )/ ( PS( 1+1 )-PS( I ) ) ) )*Q**1 .75 
GO  TO  7 

4  A(I)=-29.22848*C149.6302 
GO  TO  b 

5  A( 1)» .012147 5/ ( . 03 125*EXP( 3.46574* (Cl/ 1.073))) 

6  DP=A( I)*Q**1 . 7 5 

7  IF(O.El)  -  0 .  )3LEG(  LEG42*NL)= .0001 
IF(g.EO-0.)GO  TO  9 

IF( DP . LT. 5 . )DP=5 . 

DP»OP-5.+C2 

UPl-DP/g 

8  ULEG( LEG+1 1*NL)=BLEG( LEG411*NL)4DP1 
RETURN 

9  BLEG( LEG44*NL)=BLKG(LEG44*NL)4C2 
RETURN 

10  UP1-3.E7 

IF(uLEG(LF;g+2*NL)  .EQ.0.)BLEG(LEG42*NL)-.001 
GO  TO  8 
ENTRY  DR1W31 

DYNAMIC  RESISTANCE  FOR  1  WAY  RESTRICTOR  DATE  6/26/73 
M-IL 

LEG“BRANCIIP(M+20*NBP2 ) 

Q»ABS( BLEG( LEG+2*NL) ) 
r  I»BRANCIiP(  M4 1 2*NBP2 ) 

IF(FI .LT.O. )GO  TO  12 
C2-BRANCiIP(M+5*NBP2  ) 

C3-BRANCHP(M+6*NBP2 ) 

IF(C2 .GT . . 9)GO  TO  11 
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6.2.3. 


(Continued) 


IF(C2.EQ.O.)C2«. 00001 

C4-C3/ ( ( 1 . -(C2/BRANCHP( M+3*NBP2 ) )**4 )** . 5 ) 
DP1-(DENS*Q)/((236.*(C2**2)*C4)**2) 

GO  TO  8 

11  CK-C2/(C3**2) 

DP1-CK*Q 

GO  TO  8 

12  lF(BRANCHP(M+8*NbP2).EQ.O.)GO  TO  13 
CK«BRANCHP(rt+8*NBP2)/(BRANCHP(M+9*NBP2)**2) 
DPl-(BKANCHP(rt+7*NBP2)/ABS(Q))+(CK*Q**2) 

GO  TO  8 

13  C2«BRANCHP(M+7*NBP2) 

C3«BRANCHP(*-t+4*NBP2) 

GO  TO  l 

ENTRY  OVRE33 

C  DYNAMIC  RESISTANCE  FOR  RLF  VALVE  DATE  6/13/78 

M-IL 

FI-BRANCHP(rt+7*NBP2) 

C1«BRANCHP(M+3*NBP2) 

C2»BRANCHP(M+5*NBP2 ) 

IF(FI  •  LT.O. )G0  TO  1 

DP1-3.E7 

GO  TO  8 

END 
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6.2.4  Subroutine  DACT4 


DACT4  is  the  dynamic  element  model  for  a  simple  actuator. 

6. 2. 4.1  Math  Model 

The  simple  actuator  is  modeled  as  shown  below,  Figure  43.  The  flow 
is  into  either  the  extend  or  retract  port.  Piston  leakage  is  calculated  and 
also  the  net  flow  to  operate  the  piston.  The  flow  gain  or  loss  depending  on 
the  piston  direction  is  then  calculated.  The  pressure  rise  or  drop  across 
the  piston  is  also  calculated  based  on  the  inlet  pressure,  the  external  load 
and  the  piston  seal  friction. 


Junction  1 


QLOSS 


QIN  QOUT 

Extend 


QGAIN 


INTERNAL  LK(. 


a_i. 


QIN  QOl’T 

Ret  ract 


Branch  Point  Representation 


FIGURE  43 


SIMPLE  ACTUATOR 
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6. 2. 4. 2  Assumptions  -  Not  applicable. 


6. 2.4. 3  Computations 

The  actuator  physical  parameters  are  initialized  from  BRANCHP  array.  The 
piston  leakage  constant  is  calculated  as 

FCON  =  200000. *(VISC/VI00) *(L/ (3. 14 (6*PDIA) ) 

For  the  actuator  extending  the  flow  on  the  head  side  of  the  piston  is 
QP  =  QIN  -  QLEAK 

Where  the  leakage  flow  is  calculated  from  the  previous  pressure  difference 
across  the  piston. 

QlEAK  =  Pressure  Drop /FCON. 

The  pressure  on  the  opposite  side  of  the  piston  is  calculated  as 
PR  =  ((PH  x  Extend  Area)  -  Load  -  Friction) /Retract  Area 
The  flow  out  the  return  port  is 

QR  =  QP  x  (Retract  Area/Extend  Area) 

The  flow  difference  between  flow  in  and  flow  out  is  input  to  PQL  array. 

PQL(N, 2)  =  QR  -  QP 

and  the  pressure  difference  across  the  piston  is  input  into  BLEG  array  column  3. 
DPI  =  PR  -  PH 

BLEG(LEG,5)  =  BLEG(LEG,5)  +  DPI 

Calculation  for  the  actuator  moving  in  the  reverse  direction  is  calculated 
in  a  similar  manner  as  above  with  EXTA  and  RETA  interchanged  as  well  as  QP, 

QR,  PH  and  PR. 

6. 3.4.4  Approximations  -  The  piston  leakage  resistance  is  approximated  by 
200000* (1 . / (3. 1416*PDIA) ) 

6. 2. 4. 5  Limitations  -  Not  applicable. 
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6. 2. 4. 6  DACT4  Variable  Names 


Variables 

Description 

Dimension 

ALOAD 

.  _  .  ,  +compression 

Actuator  load  r  . 

-  tension 

LB 

ALT 

Altitude 

FT 

BLEG 

Array  containing  calculation  data 

— 

BRANCHP 

Dynamic  element  data  storage  array 

— 

DENS 

Fluid  density  at  system  temperature  and 
atmospheric  pressure 

LB/FT3 

DPLOAD 

Load  equivalent  pressure  drop 

PSID 

-DPT 

Net  pressure  drop 

PSID 

DPI 

Calculated  AP  across  piston 

PSI 

D100 

Density  at  100°F 

LB/FT3 

EXTA 

Extend  area 

IN2 

FCON 

Piston  seal  leakage  constant 

PSI/CPM 

FLUIDF 

Viscosity-pressure  correction  factor  at 

100°F 

— 

FLUIDK 

Viscosity-pressure  correction  factor  at 
temperature 

fluid 

— 

FRIC 

Dynamic  seal  friction 

LB 

I 

Integer  counter 

— 

IL 

Row  location  in  BRANCHP  arrav 

— 

JDIR 

Piston  motion  direction  indicator 

1  =  extend 

2  =  retract 

— 

LINT 

Internal  leg  number 

— 

M 

Row  number  in  BRANCHP  array 

— 

N 

Branch  point  number  of  actuator 

-- 

NBP2 

Total  number  of  rows  in  BRANCHP  arrav 

__ 
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Variables 

Descript  ion 

Dimens  ion 

NL 

Total  number  of  rows  in  BLEG  and  ILEP  arrays 

— 

NPQ 

Total  number  of  rows  in  PQL  arrav 

— 

NR 

Branch  point  number  of  retract  side  of  actuator 

— 

PAMB 

Atmospheric  ambient  pressure 

PSI 

PDIA 

Piston  diameter 

IN 

Pd 

Pressure  on  extend  side  of  piston 

PSI 

PPOS 

Piston  position  0.  =  full  retract 

IN 

PQL 

Array  containing  pressure  point  data 

— 

PR 

Pressure  on  retract  side  of  piston 

PSI 

Q1N 

Plow  into  actuator 

GPM 

RETA 

Piston  retract  area 

IN2 

SIR 

Max  stroke  from  full  retract  to  full  extend 

IN 

TEMP 

Fluid  temperature 

°  F 

TY 

Element  type 

— 

vise 

Fluid  viscosity  at  atmospheric  pressure 

CENTISTOKES 

VPORT 

Pressure  port  junction  number  of  valve  controlling 
the  actuator 

— 

VI 00 

Fluid  viscositv  at  100°F 

CENTISTOKES 
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SUUROUTI NE  DACT4 ( IL  ,  BRANCHP  , NBP2  ,  BLEG  ,  NL ,  PQL  ,  NPQ) 

C  CALCULATES  ACTUATOR  PRESSURE  DROP  AND  DATE  12/1/79 

C  FLOW  GAIN  OR  LOSS  FOR  BRANCH  POINT 

COMMON  / BLK1 /TEMP , VISC , DENS , D 100, PAMB, ALT ,FLUIDF , FLUIDK, V100 
DIMENSION  BRANCHP( 1 ) , BLEG( 1 ) , PQL( 1) 

C  ROW  NUMBER  IN  BRANCilP  ARRAY 

M=IL 

C  BRANCH  POINT  NUMBER  OF  ACTUATOR 

N=3RANCHP(M+3*NBP2) 

NR=BRANCIIP(M+4*NBP2) 

EXTA=BRANCHP(M+5*NBP2 ) 

RET  A*  BRANCHP ( M+6  *NB  P2 ) 

FRIC=BRANCHP(M+7*NBP2 ) 

ALOAD=BRANCHP(M+3*NBP2 ) 

STR*BRANCUP(.'1+9*NBP2) 

PP0S=BRANCHP(*1+10*NBP2) 

PDIA=BRANCHP(M+1 1*NBP2 ) 

VP0RT=BRANCUP(M+1 2*NBP2 ) 

LINT "BRANCHP (M+15*NBP2) 

IF(BRANCUP(M+3*NBP2).NE.O.)GO  TO  1 

FCOM= 200000 .* (VISC /V 100)* ( 1 . /( 3  1416*PDIA>) 

BLEG( LINT+1 1*NL)=FC0N 
RETURN 

1  DO  2  1*1 , NBP2 
TY*BRANCHP( I) 

IF(VPORT.EQ.BRANCHP(I+2*NBP2)  . AND.TY . EQ. 36 .  )G0  TO  4 
IF (  VPORT  .F.Q .  BRANCH P(  I+3*HBP2  )  .  AND.TY  .EQ .  33  .  )G0  TO  4 
IF( VPORT . EQ . BRANCH P( I+3*NBP2 ) . AND.TY . EQ . 34 . )G0  TO  5 

IF(VPORT.EQ.BRANCUP(I+4*N3P2). AND.TY. F.Q. 34. )G0  T0  6 

2  CONTINUE 
WRITE( 6 , 3)VP0RT 

3  F0RMAT('DACT4  CAN  NOT  FIND  PORT' , FS . 3 , 'IN  BRANCHP  ARRAY') 

4  JDIR=1 

I F ( RET A . GT . E  XTA ) JD I R=  2 
GO  TO  7 
3  .TD 1 R*  1 

I  r  (  BRANC1P(  1+1 4 * NB  P2  )  .EQ .  2  .  )  J  D IR*2 
CO  TO  7 
')  J/1R-2 

I  F(BRA::C  IP(  T+14*.NBP2  )  .EQ.2  . )  JIHR-1 
I.  FLO'./  INTO  ACTUATOR 

7  O I  ;> ABS (  !‘> LEG (  LT !!T+2*'!L)  ) 
p:i*p  )L(n) 

"!!*  PQL(  \’R  ) 

I  r(  !’!i . K‘ ; . — l .  )i’;i=2ooo. 

'.-1  .)!•;<=  3000. 

.  '  (AD/l.NTA 

!l  (.V.  >  \i  i .  L  P .  0  .  )  DPI,OAI)*ALOAD/  KETA 

!  i  ■  '  1 1  l  )  .,<)  ro  if 

:  - )go  ro  '> 
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6. 2. 4. 7  (Continued) 


8  IF(PU.LT.0.00l)PR=0.001 
PH=PR*(RETA/EXTA) 

DP1*PR-PH 

DPT=DP1-DPL0AD 

BLEC( LINT+4*NL)-DPT 

PQL( NR+NPQ) =( -( ( EXTA-RETA) /EXTA )  *QIN ) 
RETURN 

9  IF(PR.LT .0 .001 )PR»0 .001 
PU=PR*(RETA/EXTA) 

DPT=DP1-DPL0AD 
BLEG(LINT+4*NL)=DPT 
PQL(N+NPQ)»(( EXTA-RETA) /RETA)*QIN 
RETURN 

END 
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6.2.5  Subroutine  DPUM5 


])Pl'M5  is  tlie  dynamic  element  model  for  a  variable  delivery  pump. 

6.2.5. 1  Math  Model  -  The  variable  delivery  hydraulic  pump  generates  fluid 
flow  in  response  to  syste  flow  demand.  The  discharge  pressure  is  a  function 
of  discharge  flow.  The  steady  state  pump  model,  models  the  pump  characteris¬ 
tic  flows  and  pressures  in  the  pump.  The  characteristic  curves  modeled,  see 
Figure  44  ,  are: 

(1)  The  standard  flow  versus  pressure  out  curve 

(2)  The  characteristic  leakage  from  high  pressure  back  to  the  pump  case 

(3)  The  leakage  from  the  pump  case  back  to  the  inlet 

(4)  The  pump  pressure  out  versus  inlet  pressure. 

The  pump  case  pressure  is  the  pressure  reference  used  for  the  pump  outlet 
pressure.  The  case  pressure  in  turn  is  referenced  from  atmospheric  pressure 
through  the  reservoir  and  back  to  the  pump  case. 

6. 2. 5. 2  Assumptions  -  Not  applicable. 

6. 2. 5. 3  Computations  -  The  following  equations  were  written  with  flows  in  gpm 
which  is  consistent  with  MIL-P-19692C . 

The  pump  physical  parameters  are  initialized  from  BRANCHP  array.  The  flow 

out  of  the  pump  is  initialized  from  BLEC  array  column  3.  Using  this  flow,  QT, 

the  characteristic  pressure  out  is  calculated. 

Flow  <  rated  flow 
POUT=P l- (P1-P2) x (QT/Q2) 

Flow  >  rated  flow 
POUT=P2-(P2-P3) x ( (QT-Q2) / (Q3-QZ) ) 

The  leakage  flow  from  high  pressure  to  the  pump  case  is  calculated  as 

QPCD=RCDLA- ( . 3x (QT/RQ) ) 

A  default  value  of  1  gpm  is  used  if  no  RCDLA  value  is  input. 

The  pump  case  drain  flow  (flow  out  the  port)  is  tie  leakage  from  high 
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I  Jr  qcd 

Qs  =  qp  +  qcd 

Pump  flows 


PSET  Pressure 

CD  (psig) 


Flow  out  versus  Pressure  out 


"'CD 


AP 


CD-S 


Case  drain  flow  versus  Flow  out 


Case  drain  flow  versus  AP 
between  case  and  suction 


Fixed 

Flow  -  -Qq 

- •-W 


Fixe^ 
Fressure 


Fixer1 

Flow  -?  3rr 


Flow  out  versus  Suction  pressure 


Branch  point  representation 


FIGURE  44 


VARIABLE  DELIVERY  PUMP 


pressure  to  the  case  less  the  flow  that  leaks  back  to  the  inlet  port.  There¬ 
fore  it  is  a  function  of  QPCD  and  the  pressure  difference  between  the  case 
and  the  inlet.  The  case  drain  flow 

QCD=QPCDx (1 . - (PC-PS) /RCDSDP )x (V 100/VISC) 

The  default  value  for  RCDSDP  is  300  psid.  This  indicates  that  if  the  pressure 
difference  between  the  pump  case  and  inlet  is  greater  than  or  equal  to  300  psid, 
all  the  high  pressure  to  case  leakage  flow  goes  back  to  the  inlet. 

The  actual  pump  out  pressure  is  calculated  using  the  previously  calculated 
POUT  pressure  from  the  characteristic  curve  and  adjusting  this  to  account  for  the 
actual  pressure  in  the  case  less  the  case  pressure  at  which  POUT  was  set. 

PP=POUT+PC-PSETA 

The  input  values  to  the  PQL  array  are  1  pressure  and  2  flows. 

Pump  out  pressure  PQL(MP3,1)=PP 

Suction  flow  PQL(MP2,2)=-QS 

Case  drain  flow  PQL(MP1,2)=QCD 

QS  is  calculated  as  QS=QT+QCD 

The  pump  outlet  pressure  versus  inlet  pressure  model  is  essentially  a 
cavitating  inlet  which  reduces  the  output  flow. 

6.2. 3.4  Approximations  -  Not  applicable. 

6. 2. 5. 5  Limitations  -  The  model  has  an  instabilitv  when  iterating 
between  values  on  each  curve  of  the  flow  out  versus  pressure  out  graph  in 
Figure  44.  Care  must  be  taken  in  choosing  an  operating  point  that  is  on  one 
curve  or  the  other. 
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6. 2. 5. 6  DPUM5  Variable  Names 


Variables 

Descript  ion 

Dimens  ion 

ALT 

Altitude 

FT 

BLEG 

Array  containing  calculation  data 

— 

BRANCHP 

Dynamic  element  data  storage  array 

— 

DENS 

Fluid  weight  density  at  atmospheric  pressure 

LB/ FT 3 

DlOO 

Weight  density  at  100°F 

LB/FT3 

FLU IDF 

Viscosity-pressure  correction  factor  at  100°F 

— 

FLL'IDK 

Viscosity-pressure  correction  factor  at  fluid 
temperature 

— 

I 

Integer  counter 

— 

IL 

Row  location  in  BRANCHP  array 

— 

ILEP 

Array  of  leg  numbers  with  the  corresponding 
pressure  on  each  end 

— 

LEG 

Leg  number  (row  in  BLEG  array) 

— 

MP1 

Suction  pressure  point  number 

— 

MP2 

Pressure  port  pressure  point  number 

— 

MP3 

Case  drain  port  pressure  point  number 

— 

MP4 

Upstream  pressure  point  number  for  suction  inlet 
leg 

— 

NBP2 

Total  number  of  rows  in  BRANCHP  array 

— 

NL 

Total  number  of  rows  in  BLEG  and  ILEP  arrays 

— 

NPQ 

Total  numter  of  rows  in  POL  array 

— 

PAMB 

Atmospheric  ambient  pressure 

PST 

PC 

Previous  calculated  pump  case  pressure 

PS1 

POLD 

Previous  calculated  outlet  pressure 

PST 

POUT 

Calculated  pressure  out  of  pump 

PSI 
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Dimens  ion 


Variables 

Descript  ion 

Dimens  ion 

POUTT 

Calculated  pressure  out  of  pump 

PSI 

PP 

Corrected  pressure  out  of  pump 

PS  I 

PP2 

Adjusted  P2  pressure  with  reference  to  case 
pressure 

PSI 

PQL 

Array  containing  pressure  point  data 

— 

PS 

Previous  calculated  suction  pressure 

PSI 

PSDEL 

Suction  pressure  difference 

PSID 

PSET 

Case  pressure  at  which  rated  conditions  are  set 

PSI 

PS  ETA 

Default  for  case  set  pressure 

PSI 

PSM 

Minimum  suction  pressure 

PSIG 

PSMIN 

Minimum  suction  pressure 

PSIG 

PSMINA 

Default  for  minimum  suction  pressure 

PSI 

PSMINO 

Minimum  suction  pressure 

PSIA 

PT 

Absolute  suction  pressure 

PSIA 

PI 

Pressure  at  0  pump  flow 

PSI 

P2 

Pressure  at  pump  rated  flow 

PSI 

P3 

Pressure  with  0  system  resistance 

PSI 

QCD 

Flow  out  case  drain  port 

GPM 

QOLD 

Previous  calculated  flow  out  of  pump 

GPM 

QOUT 

Pump  pressure  port  flow  rate 

GPM 

OPCD 

Leakage  flow  from  high  pressure  to  case 

GPM 

QS 

Inlet  flow  to  pump 

GPM 

Q1 

Flow  with  infinite  system  resistance 

GPM 

Q2 

Rated  pump  flow 

GPM 

03 

Flow  with  0  system  resistance 

GPM 

17b 


Variables 

Description 

Dimensions 

RCDL 

Default  case  drain  flow 

GPM 

RCDLA 

Rated  case  drain  flow 

GPM 

RCDP 

Rated  pressure  difference  between  case  and  suction  PSID 

RCDSDP 

Default  pressure  difference  between  case  and 
suction 

PSID 

RPM 

Pump  RFM 

RPM 

RQ 

Rated  flow  at  rated  rpm 

GPM 

RRPM 

Rated  pump  rpm 

RPM 

TEMP 

Fluid  temperature 

°F 

vise 

Fluid  viscosity  at  atmospheric  pressure 

CENTISTOKES 

VI 00 

Fluid  viscosity  at  100°F 

CENTISTOKES 
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6. 2. 5. 7  DPUM5  Subroutine  Listing 


SUBROUTI NE  DPUH5 '  IL , BRANCHP , NBP2 , BLEG , NL , PQL , NPQ , I LEP ) 
CALCULATES  PUMPOUT  PRESSURE,  CASE  DRAIN  FLOw 
AND  SUCTION  FLOW  REV  12/01/^9 
COMMON  /BLK 1/TEMP , VISC , DENS , D100 , PAMB , ALT , FLUI DF , FLUI DK , V100 
DIMENSION  ILEPU) , BRANCHP'  1 )  ,BLEG'  1 ) ,  PQL'  1 ) 

RPM=BRANCHP{  IL+‘7*NBP2 ) 

IF'RPM.LE.O.  JRLTIJRN 
MPl=BRANCHPf  IL«-4*NBP2) 

MP2=BRANCHPf IL+5*NBP2 ) 

MP3=BRANCHPf IL+6*NBP2 ) 

LEG=BRANCHP(IL+16*NBP2) 

QOLD=A8S(BLEG(LEG+2*NL) ) 

BRANCHP( 1L+17*NBP2) =QOLD 
FOLD=PQL(  MP2 ) 

RRPlki=BRANCHP(  IL+8*NBP2) 

RQ=BRAMCHP(  IL+9*NBP2 ) 

PSt.T=BRANCHP( IL+15*NBP2) 

PSETA=50. 

IF(  PSET.Gl'.O . ) PSETA=PSRT 
Pl=BRANCHP(  IL+1Q*NBP2) 

P2=BRANCHP( IL+11*NBP2 ) 

PSMIl+=BRANCHP(  IL+12*NBP2) 

RCDP=BRANCHP  f IL+13*NBP2) 

RCDL=BRA1MCHP(  IL+14*NBP2) 

PC-PQL' MP3 ) 

IF(PC.EQ.-1.)PC=100. 

P3=0. 

Q1=0. 

Q2 =RQ*  RPM/RRPM 
BRANCHP( IL+13*NBP2 ) =Q2 
Q3=i.05*Q2 
PS=PQL(MP1 ) 

IF(PS.EQ.-1. )PS=50. 

Pr=PS+PAMB 

RCDLA=1. 

IF ( RCDL . GT . 0 . ) RCDLA=RCDL 
QPCD=RCDLA- { . 3* ' QOLD/Q2 ) ) 

IF'QPCD.LT.O. )QPCD=0. 

RCDSDP=300. 

IF(RCDP.GT.O. )RCDSDP=RCDP 

QCD=QPCD* (l.-(PC-PS) /RCUSDP ) * ' Vl 00/ VISC ) 

IF'QCD.LT.O. )QCD=0. 

PQL(MP3+NPQ)=QCD 
GO  TO  1 

IF(BRANCriP( IL+19*NBP2) .EQ.2. )GO  10  3 
IF(BRANCHP'IL+4*NBP2).EQ.O. )G0  TO  1 
IF(BRANCHP(IL+4*NBP2).EQ.l.)GO  TO  2 
1  QS=QOLDfQCD 
PQL' MP1+NPQ) =-QS 
POUT=Pl-( ( P1-P2 )* (Q0LD/Q2) ) 
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.2.5.7  (Continued) 


POUTT=POUT+PC-PSETA 
IF (POUTT.LT. PC )POUTT= PC 
P0L(MP2)=P0UTT 
00  TO  7 

2  PP=POLD-PC 
PP2=P2-PC 

Q0UT=Q3- ( PP/PP2 ) * ( Q3-Q2 ) 

QS=QOUT+QCD 
PQL( MP1+NPQ ) =-QS 
PQL( MP2+NPQ ) =QOUT 
GO  TO  7 

3  DO  4  1=1, NL 

IF(MP1.EQ.IL£P(I+NL) )Q0  TO  5 

4  CONTINUE 

5  QS=BI£G( I+2*NL) 

I F ( QS . LT . QCD ) QCD=QS 
IF(QS.LT.O. )QCD=0. 

QOUT=QS-QCDf . 000001 
IFfQS.LT.O. )QOUT=. 000001 
PQL( MP2+NPQ) =QOUT 
PQL(MP3+NPQ)=QCD 
PSMINA=25. 

IF(PSMIN.GT.O. )PSMINA=PSMIN 
PSMIN0=10. 

PSDEL=PSMINA-PSMINO 
IF( PSDEL . LT. 1 . ) PSDEL=1 . 

POUT=(QS/( Q3-Q1 ) ) *PSDEL+( PSMINO-PAMB) 

IF(QS.GT . ( Q3-Q1 ) ) POUT=PSMINA-PAMB 

IF ( QS . LE . 0 . ) POUT=  PSM INO- PAMB 

PSM=PSMINO-PANB 

IF( POUT. GT. PSM )GO  TO  6 

MP4=( IL£P( I+NL) ) 

IF(POUT.GT.PQL(MP4) ) POUT* PQLf MP4) 

6  PQL( MP1 ) =POUT 

7  RETURN 
END 
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6.2.6  Subroutine  DFIL6 


DFIL6  is  the  dynamic  element  model  for  a  hydraulic  filter  assembly. 

6. 2. 6.1  Math  Model 

The  filter  model  may  be  either  a  bypass  type  or  non-bypass  type,  see 
Figure  45.  The  effect  of  the  filter  port  frictional  resistance  is  cal¬ 
culated  in  SC0NST2.  SC0NST2  also  calculates  the  energy  loss  due  to  the 
sudden  expansion  into  the  volume  and  the  sudden  expansion  out  of  the  volume. 
The  loss  d.ue  to  the  filter  element  is  calculated  by  DFIL6. 

Junction  1 


Press 

Drop 

(PSI) 


(GPM) 

Clean  Element 


FI  CUKE  4  5 
FITTER 


* 


f 
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6. 2. 6. 2 


Assumptions  -  Not  applicable. 


6 . 2 . 6 . 3  Computations 

The  input  data  parameters  are  initialized  from  BRANCHP  array.  A 
test  is  made  to  determine  if  flow  is  through  the  filter  in  the  normal 
flow  direction.  If  the  flow  is  reversed  the  pressure  drop  is  higher 
than  the  normal  flow  direction.  This  pressure  drop  is  approximated  by 
PDT  =  (50. /Dl)  x  Q 

In  the  normal  flow  direction,  the  fluid  volume  is  converted  to  an  equiva¬ 
lent  area  for  calculation  of  the  expansion  and  contraction  energy  loss. 
These  values  are  converted  to  pressure  drop  in  psi.  The  element  pressure 
drop  is  calculated  from  the  input  clean  element  ratings.  The  pressure 
drop  is  corrected  for  viscosity  where 

PDEL  =  CDP  x  (Q/CDQ)  x  (VISCP/RVIS) 

If  a  contaminated  element  factor  is  used, 

CF  =  ( 1 . -CONTAM) 

Then  the  pressure  drop  term  becomes 
PDT  =  PDEL/ CF 

A  test  is  next  made  to  see  if  the  PDT  pressure  drop  exceeds  the  bypass 
allowed  pressure  drop.  Using  an  equivalent  orifice  flow  equation,  the 
element  and  the  bypass  are  calculated  as  parallel  flow  orifices. 

6. 2. 6. 4  Approximations  -  Not  applicable. 

6. 2. 6. 5  Limitations  -  Not  applicable. 
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6. 2. 6. 6  DFIL6  Variable  Names 


Variable 

Description 

Dimens  ion 

A 

Flow  direction  multiplication  factor 

— 

ALT 

Alt itude 

FT 

BLEG 

General  purpose  array 

— 

BPD 

Bypass  pressure  drop 

— 

BRANCHP 

Dynamic  element  data  storage  array 

— 

CDP 

Filter  element  rated  pressure  drop 

PSI 

CDQ 

Rated  flow  of  clean  element 

GPM 

CF 

Contamination  factor 

— 

CONTAM 

Contamination  factor 

— 

DENP 

Flui-d  weight  density  at  system  pressure 

LB/FT3 

DENS 

Fluid  weight  density  at  atmospheric  pressure 

LB/FT3 

DI 

Assembly  direction  indicator 

— 

DPI 

Pressure  drop  through  filter  element 

PSI 

DRPD 

Difference  between  bypass  pressure  drop  and 
rated  pressure  drop 

PSID 

Dl 

Port  1  diameter 

IN 

DlOO 

Weight  density  at  100°F 

LB/FT3 

D2 

Port  2  diameter 

IN 

EQD 

Equivalent  diameter 

IN 

FLUIDF 

Viscosity-pressure  correction  factor  at  100°F 

— 

FLUIDK 

Viscosity-pressure  correction  factor  at 
fluid  temperature 

— 

FV 

Filter  assembly  fluid  volume 

IN3 

F2 

Intermediate  calculation  of  bypass  flow  rate 

__ 
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Dimension 


Variable 

IL 

LEG 

M 

NBP2 

NL 

PAMB 

PDEL 

PDT 

PDL 

PD2 

PEL 

Q 

Q1 

Q2 

RK1 

RK2 

RPD 

RVIS 

SKB° 

SKSB 

TEMP 

VTSC 


Descript  ion 

Row  location  in  BRANCHP  array 
Leg  number 

Row  in  BRANCHP  array 

Total  number  of  rows  in  BRANCHP  array 
Total  number  of  rows  in  BLEG  array 
Atmospheric  ambient  pressure 
Actual  filter  element  pressure  drop 
Total  pressure  drop 
Entrance  pressure  drop 
Exit  pressure  drop 

Corrected  filter  element  pressure  drop  with 
contaminat ion 

Leg  flow 

Calculated  flow  through  filter  element 

Calculated  flow  through  bypass  relief 

Calculated  resistance  factor  for  rated  pressure 
drop 

Calculated  resistance  factor  for  DRPD 
Rated  pressure  drop 
Rated  viscosity 

Function  to  calculate  exit  pressure  drop 
Function  to  calculate  entrance  pressure  drop 
Fluid  temperature 

Fluid  viscosity  at  atmospheric  pressure 
Fluid  viscosity  at  100°F 


PSI 

PS1 

PSI 

PSI 


GPM 


GPM 


GPM 


PSI 

CENT  I  STOKES 


°  F 


CENT  I  STOKES 


1B3 


VI 00 


CENT  I  STOKES 


AD-AQ89  2«0 


UNCLASSIFIED 


MCOONNELL  AIRCRAFT  CO  ST  LOUIS  MO  ... 

MRT.TSKft'S  ?&TS  D?NAH1C  •«isay£r8c..l 

AF*Pt-T«-7*-«J-vOL-6 
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6. 2. 6. 7  DFIL6  Subroutine  Listin 


SUBROUTINE  DFIL6* IL,BRANCHP. NBP2,BLEG,NL) 

C  DYNAMIC  RlSISTANCE  FOR  FILTER  DATE  12/1/79 

COMMON  /3LK  1/TEMP ,  VI  SC ,  DENS ,  DlOO ,  PAMB , ALT , F LUI DF ,  FLUI DK ,  V10Q 
DIMENSION  BRANCHPf  1 ) , BLLG^  1 ) 

M=IL 

LLG=BrANCHP<  IL+20*NBP2) 

Dl=BRANCHPO'i+3*NBP2 ) 

D2=BKANCHPf  M+4*NBP2 ) 

FV=BRANCriP<  M+5*NBP2 ) 

CUQ=BRANCHP  ( i-1+6  *NBP2 ) 

CDP=BRAiCHP(  rt+7*NBP2) 

RVIS=BRANCriP(M-*-3*NBP2 ) 

CGNTAi’»=BRANCHP{  M+9*NBP2 ) 

RPD=ORANCHPf  M+1Q*NBP2 ) 

BPD=BRANCHP(M+1 1*NBP2 ) 

D I=BRANCH  P ( M+ 1 2*  NBP2 ) 

Q=BL£fU  LbG+2*NL) 

A=l. 

IFfQ.GE. 0. -AND.DI .EQ. 1. )GO  TO  2 
IFfg.LT.O. -ANDDI.LQ.2. )GO  TO  1 
IFfQ.LT.Q. .AND.DI.EQ. 1  )A=-1. 

GO  TO  3 

1  A— 1. 

2  EQD=1.240"*FV**a./3.  ) 

PDl=SKSBf D1 ,EOD,DENP)*Q**2 
PD2=SKBS <  EQO,D2, DENP ) *Q*  *  2 
PDEL=CDP* ( Q/CDQ ) *  < VISC/RVIS ) 

CF=  .0001 

I  Ff  CON  TAM  .LT.l. )CF=( l.-CONTAM) 

PtL=PDEL/CF 
PUT=PEL+PD1+PD2 
IFfBPD.EQ.O. )GO  TO  4 
IF(PEL.LE.RPD)GO  TO  4 
ORPD=BPD~RPD 

RK2= ( DRPD/ ( CDO*CD Q ) ) * ( ( VISC/RVIS )**.25)*< DENP/DENS ) 

RK 1= ( CDP/COJ ) * ( VISC/RVIS ) * ( DbNP/DENS ) /C  F 
F2=SQRT( ( ( KK1/RK2) **2)-4 . *( ( RPD-RKl*Q)/KK2 ) ) 

Q2=r -I RK1/RK2 ) +F2 )/2 . 

Ql=Q-02 
DPl=KKl*Ql 
POT=( DPI+PD1+PD2 ) *A 
GO  TO  4 

3  PD’T=r50./Ul)*g*A 

4  BLEGf  LEG+1 1*NL)  =BLEGf  LEG-*- 1 1*NL )  +ABS ( PDT/Q) 

RETURN 

END 


6.2.7  Subroutine  DACC7 


Accumulator 
Element  Type  7 
Ind  Type  1  and  3 


Flow  Point 
Element  Type  7 
Ind  Type  4 

ELEMENT  TYPE  7  -  ACCUMULATOR 


Pressure  Point 
Element  Type  7 
Ind  Type  2 


oers-osei  33 


FI  CTRL  .',6 


The  type  7  accumulator  is  used  also  for  fixed  flows  and  fixed  pressures; 
see  Figure  46.  Subtype  1.  is  a  passive  (static)  accumulator  where  no  flow  is 
in  the  leg  to  the  accumulator  and  the  accumulator  pressure  is  the  same  as  the 
pressure  at  the  point  where  the  leg  branches  off  to  go  to  the  accumulator. 
Subtype  2.  is  a  fixed  pressure  point  and  maintains  this  pressure  regardless  of 
the  flow  in  the  leg  leading  to  or  away  from  the  point.  This  point  has  to  be  an 
end  point  in  the  system  and  cannot  be  an  intermediate  point  between  2  elements. 
Subtype  3.  is  a  dynamic  accumulator.  An  accumulator  may  be  a  piston  type, 
bladder  type,  or  an  air  to  oil  type.  Any  of  these  types  can  be  input  as  Type  7 
because  an  accumulator  power  capability  is  based  on  the  precharge  gas  volume, 
fluid  minimum  and  maximum  volume  and  initial  pressure  or  initial  fluid  volume 
are  used  only  when  the  dynamic  accumulator  is  used.  Subtype  4.  is  a  fixed  flow 
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point  with  similar  restrictions  as  the  Subtype  2.  This  point  will  maintain  the 
constant  flow  regardless  of  system  conditions  or  changes  in  system  conditions. 
When  a  call  to  DACC7  subroutine  is  made  the  program  flow  is  routed  to  the 
appropriate  section  through  the  subtype  indicator. 


SUMMARY  OF  ELEMENT  TYPE  7.  SUBTYPE  OPTIONS 


SUBTYPE 

DESCRIPTION 

1. 

STATIC  PRESSURE  POINT 

PRESSURE  WILL  BE  CALCULATED  AT  PRESSURE 
POINT 

2. 

FIXED  PRESSURE  POINT 

SETS  PRESSURE  AT  PRESSURE  POINT 

3. 

DYNAMIC  PRESSURE  POINT 

PRESSURE  AND/OR  VOLUME  IS  SET  AT 
PRESSURE  POINT  AND  UPDATED  DURING 
PROGRAM  CALCULATION 

4. 

FIXED  FLOW  POINT 

FLOW  IS  SET  AT  PRESSURE  POINT 
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6.2. 7.1  DACC7  Variable  Names 


Variables 

Description 

Dimensions 

BRANCHP 

Array  containing  dynamic  element 
data 

— 

IL 

Row  location  in  BRANCHP  array 

— 

J 

Element  sub-type 

L  Static  accumulator 

2  Fixed  .pressure  point 

3  Dynamic  accumulator 

4  Fixed  flow  point 

N 

Pressure  point  number 

— 

NBP2 

Total  number  of  rows  in  BRANCHP 
array 

— 

NPQ 

Total  number  of  rows  in  PQL  array 

— 

PQL 

Array  of  pressure  points,  flows  and 
port  numbers 

— 

6. 2. 7. 2  DACC7  Subroutine  Listing 

SUBROUTINE  DACC~ ( IL,Bf!ANCHP,NBP2 ,  PQL ,NPQ) 

C  DYNAMIC  ACCUMULATOR— FIXED  FLOW  OR  PRESSURE  POINT 

C  12/01/79 

DIMENSION  BRANCHP( 1) ,PQL( 1) 

N=BKANCHPf IL+2*NBP2 ) 

J=BRANCHP(  IL+3*NBP2) 

GO  TO  (4, 1,2, 3), J 

1  PQL(N)=BRANCHPfIL+4*NBP2) 

RETURN 

2  PC>L'N)=BRAi\iaiP(IL+10*NBP2) 

RETURN 

3  POL'N+NPQ)  =BRANCtiP(  IL+4*NBP2 ) 

4  RETURN 
END 


6.2.8  Subroutine  DRESV 


DRESV  is  the  dynamic  subroutine  for  calculating  the  reservoir  internal 
pressure  and  bootstrap  flow.  Type  9  flow  through  reservoir  type  91  appendix 
reservoir  and  tvpe  92  constant  pressure  reservoir  are  defined  in  this  subrou¬ 
tine.  A  type  9  reservoir.  Figure  47,  flows  include  the  flow  in  the  return 
port  and  the  flow  out  of  the  suction  port  to  the  pump.  The  flow  in  the 
bootstrap  line  is  dependent  on  the  difference  between  the  flow  in  and  flow 
out.  Since  the  type  91  reservoir  has  only  one  low  pressure  port,  the  flow 
in  the  bootstrap  line  is  directly  dependent  on  this  one  flow.  The  calculated 
internal  pressure  is  dependent  on  the  bootstrap  pressure  and  is  also  refer¬ 
enced  to  the  external  atmospheric  pressure.  For  a  tvpe  92  reservoir,  the 
internal  pressure  is  hold  constant  bv  an  independent  source. 

PBS 

AHP 

Hiqh  Pressure  Seal 


Piston  Seal 


PATM  Atmospheric  Pressure  ( ps i ) 

AHP  High  Pressure  Area  (in  '  '21 
ALP  Low  Pressure  Area  (m  ' '21 
FR  Frictional  Force  (lb) 

QR  Return  Flow  (gpm) 

QS  Suction  Flow  to  Pump  (gpm) 

PBS  Bootstrap  Pressure  (psil 
PR  Reservoir  Pressure  Ipsi) 

ALT  Altitude  (ft) 

PALT  Pressure  at  Altitude  (pst) 

POEL  Pressure  Difference  at  Altitude  (psi) 

FLP  Force  of  Internal  Reservoir  Pressure  (Ibl 
FHP  Force  of  Bootstrap  Pressure  (lb) 

FATM  Force  of  Atmospheric  Pressure  (lb) 

FSFR  Equivalent  Force  Resistance  of  Seal  Friction  (lb) 

FIGURE  47 

FLOW  THROUGH  RESERVOIR 


Piston  Force  Balance 


FHP 


Force  Balance 

FLP  --  FHP  *  FATM  »  FSFR 
FLP  -  PR  x  ALP 
FHP  =  PBS  x  AHP 
FATM  -  (ALP  AHP)  x  PALT 
FSFR  10  x  (Sum  of  Dynamic  Seal  Ods) 
PDEL  =  PATM  PALT 

PR  =  (PBS  x  AHP  (PDEL  x  (ALP  AHP)  <  FR) 
ALP 
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6. 2. 8.1 


Math  Model  -  The  reservoir  model  includes  the  parameters  shown  in 


Figure  47.  The  model  is  basically  a  force  balance  on  the  reservoir  piston. 

The  direction  of  piston  motion  is  obtained  by  comparing  flow  in  and  flow  out 
for  the  flow  through  reservoir  and  the  flow  direction  for  the  appendix  reser¬ 
voir.  When  the  piston  direction  is  determined,  the  flow  direction  for  the 
bootstrap  is  determined. 

6. 2. 8. 2  Approximations  -  Not  applicable. 

6. 2. 8. 3  Computations  -  The  reservoir  physical  parameters  are  initialized  from 
BRANCHP  array.  For  an  appendix  reservoir,  an  energy  loss  term  for  the  flow  in  or 
out  of  the  volume  is  calculated  because  the  flow  direction  in  the  appendix  lint 
is  not  fixed. 

Referencing  to  a  standard  atmosphere,  the  pressure  at  altitude  is  cal¬ 
culated  and  PDEL  is 

PDEL=PATM~PALT 

The  previous  iteration  bootstrap  pressure  is  used  in  calculating  the  internal 
reservoir  pressure.  Based  on  the  piston  direction,  the  friction  term  always 
opposes  the  direction  of  motion. 

The  internal  reservoir  pressure  is  calculated  as 

PR= (PBSxAHP- (PDELx(ALP-AHP) ) +FR)/ALP 
The  calculated  reservoir  internal  pressure  is  input  to  PQL  array  to  be 
used  as  a  fixed  pressure  for  the  iteration.  The  same  pressure  is  used  for  the 
flow  through  reservoir  suction  pressure  at  the  reservoir.  A  calculation  is 
made  for  the  flow  in  the  bootstrap  line  as 

QL“ (QR-QS ) x (AMP /ALP ) 

For  an  appendix  reservoir  QS«0.  This  value  is  input  to  PQL  array  column  2 
as  a  flow  gain  or  loss. 

6. 2. 8. 4  Assumptions  -  Not  applicable. 

6. 2. 8. 5  Limitations  -  Not  applicable. 
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6. 2. 8. 6 

DRESV  Variable  Names 

Variable 

_  Description 

Dimension 

AHP 

High  pressure  area 

IN2 

ALP 

Low  pressure  area 

IN2 

ALT 

Altitude 

FT 

BLEG 

General  purpose  array 

_ 

BRANCHP 

Dynamic  element  data  storage  array 

— 

DENP 

Fluid  weight  density  at  system  pressure 

LB/FT3 

DENS 

Fluid  weight  density  at  atmospheric  pressure 

LB/FT3 

DIAO 

Diameter  of  previous  element 

IN 

DIAR 

Reservoir  piston  diameter 

IN 

DP 

Energy  loss  pressure  drop 

PS  I 

D100 

Weight  density  at  100°F 

LB/FT3 

EL 

Energy  loss  coefficient 

PSI/GPM2 

FLU IDF 

Viscosity-pressure  correction  factor  at  100°F 

— 

FLUIDK 

Viscosity-pressure  correction  factor  at  fluid 
temperature 

— 

FR 

Piston  friction  force 

LB 

IL 

Row  location  in  BRANCHP  array 

— 

J1 

Bootstrap  pressure  point  number 

— 

J2 

Return/suct ion  pressure  point  number 

— 

LR 

Return  leg  number 

-- 

.'a 

Bootstrap  pressure  point  number 

— 

M2 

Return  port  leg  number 

— 

M3 

Suction  port  leg  number 

— 

M4 

Return  port  pressure  point  number 
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Variable 

Descript  ion 

Dimens  ion 

>15 

Suction  port  pressure  point  number 

— 

XBP2 

Total  number  of  rows  in  BRAN'CHP  arrav 

— 

XL 

Total  number  of  rows  in  BLEG  array 

— 

NPQ 

Total  number  of  rows  in  POL  arrav 

— 

PALT 

Atmospheric  pressure  at  altitude 

PSIA 

PAMB 

Atmospheric  ambient  pressure 

PSI 

PATM 

Atmospheric  pressure 

PS  I 

PBS 

Bootstrap  pressure 

PSi 

PD  EL 

Difference  between  standard  and  atmospheric 
pressure 

PSI 

PQL 

Array  of  pressure  points,  flows  and  port  numbers 

— 

PR 

Internal  reservoir  pressure 

PSI 

PRO 

Previous  calculated  pressure 

PSI 

PRD 

Previous  calculated  reservoir  pressure 

PSI 

01. 

Leakage  flow  rate  in  bootstrap  pressure  line 

GPM 

OR 

Return  port  flow 

GPM 

QS 

Suction  port  flow 

GPM 

SKBS 

Function  to  calculate  exit  pressure  drop 

— 

SKSB 

Function  to  calculate  entrance  pressure  drop 

— 

TEMP 

Fluid  temperature 

°F 

TY 

Element  type 

— 

vise 

Fluid  viscosity  at  atmospheric  pressure 

CENT  I  STOKES 

VI  00 

Fluid  viscosity  at  100°F 

CENTISTOKES 
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6 . 2 . 8 . 7  DRESV  Subroutine  List  ins 

SUBROUTINE  DRESV ( TY , I L , BRANCHP , NBP2 , BLBG , NL , PQL , NPQ ) 

C  CALCULATES  DYNAMIC  RESISTANCE  AND  INTERNAL 

C  RESERVOIR  PRESSURE  DATE  12/01/79 

COMMON  /BLK1/TEMP,VISC/QENS,D100,PAMB,ALT/FLUIDF',FLUIDK,V100 
DIMENSION  BLEG( 1) ,PQL( 1) ,BRANCHP( 1) 

IF(TY.EQ.91.)GO  TO  1 
IF(TY.EQ.92. )  GO  TO  11 
FR=BRANCHP( IL+9*NBP2) 

Ml=BRANCHP(  II>5*NBP2) 

PBS=PQL(M1> 

IF ( PBS . EQ . ( -1 . ) ) PBS=3000 . 

ALP=BRANCHP( IL+8*NBP2) 

AHP=BRANC  HP ( IL+7*NBP2) 

M2=BRANCHP( IL+10*NBP2 ) 

M3=BRANCHP( IL+12*NBP2 ) 

QR=BLEG(M2+2*NL) 

QS=BLEG(M3+2*NL)*BRANCHP( IL+13*NBP2) 

GO  TO  5 

1  QS=0. 

ALP=BRANCH  P ( IL+6*NBP2 ) 

AHP=BRANCHP( IL+5*NBP2 ) 

LR=BRANCHP( IL+9*NBP2 ) 

QR=BLEG( LR+2*NL) 

DIAO=BLEG(  LR-*-3*NL) 

FR=BRANCHP( II>7*NBP2 ) 

J1=BRANCHP( IL+4*NBP2) 

PBS=PQL(Jl) 

J2=BRANCHP(IL+3*NBP2) 

PRO=POL(J2) 

IF(PRO.EQ.-1.)PRO=50. 

IF(PBS.EQ.(-1. ) )PBS=30Q0. 
luak=(ALP/ . 7854) ** . 5 
IF (OH) 2,5,3 

2  EL=SKBSf DIAK,DIAO,DlOO) 

GO  TO  4 

3  EL=SKSB(DIAO,DIAR,D100) 

4  DEHP=( X .+PRO/2UUUUU . )*DENS 
DP=EL* ( DENP/D1 0 0 ) *QR* QR 

BLEGf  LR+4*NL)  =BLEG(  LR+4*NL)  -DP 

5  COOTINUE 
PAI>1=14.6999 
PALT*PAHB 
PDEL*  PATM- PALT 

IF(ABS( PDEL) .LT. .0Q1)PUEL=0. 

IFfQR-QS)6,7,8 

6  PR=( PBS*AHP-( PDEL* (ALP-AHP) )-FR)/ALP 
GO  TO  9 

7  PR=( PBS*AHP-( PDEL* (ALP-AHP) ) )/ALP 
GO  TO  9 

8  PR= ( PBS *AHP- ( PDEL* < ALP-AHP ) )+FR)/ALP 


193 


6.2.8. 7  (Continued) 

9  CONIINE 

IF(TY.EQ.91 )GO  TO  10 
QL= ( QR-QS ) * ( AHP/ALP) 

PQL( Ml+NPQ ) =QL 

M4=BRANCHP{ IL+4*NBP2) 

M5*BRANCHP(  IL*6*NBP2 ) 

PgL(M4)=PR 

PQL(M5)=PR 

RETURN 

10  PQL(J2)=PR 

PQL( Jl+NPQ) =QR* (AHP/ALP) 
RETURN 

11  CONTI NUE 
Ml=BRANCHP(  IL+3*NBP2 ) 

PQL( Ml ) =BRANCHP( IL+5*NBP2 ) 
M1=BRANCHP( IL+4*NBP2 ) 
P0L(M1)=BRANCHP( 1L+5*NBP2) 
RE'XURN 

END 
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6.2.9  DPEC10  Subroutine 


The  DPEC10  subroutine  is  used  in  SSFAN  to  allow  the  use  of  special 
elements  in  a  hydraulic  system  that  cannot  be  described  by  the  other 
element  subroutines.  Values  of  flow  versus  pressure  drop  for  an  element 
at  a  specific  temperature  and  viscosity  are  read  into  the  BRANCHP  array.  The 
DPEC10  subroutine,  in  conjunction  with  INTERP,  returns  a  pressure  drop  for 
a  given  element,  temperature,  viscosity  and  flow. 

6. 2. 9.1  Math  Model 

The  maximum  number  of  data  points  for  flow  vs  PD  is  six  at  a  temperature 
and  viscosity.  Extrapolation  for  values  greater  than  the  data  points  are 
allowed.  The  pressure  drop  for  the  element  is  corrected  for  viscosity 
before  it  is  returned  to  the  main  program  by  the  following  equation. 

PD  =  PD 

Program  From  DPEC10 


vise 


Program 


vise 


Element 


.25 


(1) 


6. 2. 9. 2  Assumptions  -  Not  Applicable. 

6. 2. 9. 3  Computations 

The  DPEC10  subroutine  is  called  from  TTL  subroutine.  The  DARR  subroutine  is 
called  to  place  the  viscosity  and  temperature  data  for  the  special  element  into  two 
arrays  FARR1  and  FARR2.  For  only  two  data  points  linear  interpolation  is 
used  and  IDEG  is  set  to  10.  Otherwise  the  call  to  INTERP  for  the  elements 
current  flow  in  the  leg  (Q)  contains  a  second  degree  interpolation.  This 
pressure  drop  from  INTERP  is  viscosity  corrected  by  equation  (1)  and  program 
control  is  transferred  to  TTL. 

6. 2. 9. A  Approximations  -  Not  applicable. 


195 


6. 2. 9. 5  Limitations 


DPEC10  is  a  versatile  subprogram  that  allows  the  addition  of  any 
specially  made  element  in  a  hydraulic  system,  if  the  element  is  modeled 
correctly. 

6 . 2 . 9 . 6  DPEC10  Variable  Names 

Variable  Description  Dimension 


ALT  Altitude  FT 

BLEG  General  purpose  array 

BRANCHP  Dynamic  element  data  storage  array 

CK  Calculated  resistance  coefficient  for  single 

data  point  input 

3 

DENS  Fluid  weight  density  at  atmospheric  pressure  LB/FT 

DP  Pressure  drop  corrected  for  viscosity  effects  PSI 

DPI  Pressure  drop  uncorrected  for  viscosity  effects  PSI 

3 

D100  Weight  density  at  100°F  LB/FT 


FARR1  Dummy  array  for  flow  data 

FARR2  Dummy  array  for  pressure  drop  data 

FLUIDF  Viscosity-pressure  correction  factor  at  100°F 

FLUTDK  Viscosity-pressure  correction  factor  at  fluid 

temperature 

IDEG  Degree  of  interpolation 

IL  Row  location  in  BRANCHP  array 

:ND  Solution  indicator 

=  0  Normal  interpolation 
=  1  Extrapolation  outside  of  data  range 

K  Integer  row  number  in  BRANCHP  array 

LEG  Leg  number 

M  Number  of  data  points 
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Variable 

Descript  ion 

Dimension 

Ml 

Locator  for  BRANCHP  to  determine  if  linear 
interpolation  should  he  used 

-- 

NBP2 

Total 

number  of 

rows  in  BRANCHP  array 

— 

NL 

Total 

number  of 

rows  in  BLEG  array 

-- 

PAMB 

Atmospheric  ambient  pressure 

PS  I 

Q 

Leg  flow  rate 

GPM 

RP 

Rated 

pressure 

drop  for  single  data  point  input 

PS  I 

RQ 

Rated 

flow  for 

single  data  point  input 

GPM 

TEMP 

Fluid 

temperature 

°F 

V I  SC 

Fluid 

viscosity 

at  atmospheric  pressure 

CENTISTOKES 

V100 

Fluid 

vise os  it  v 

at  100°F 

CENTISTOKES 
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6.2.9. 7  DPEC10  Subroutine  Listing 


SUBROUTINE  DPEC10( IL,BRANCHP,NBP2,8LEG,NL) 

C  DYNAMIC  RESISTANCE  FOR  SPECIAL  ELEMENT  DATE  6/28/78 
DIMENSION  BRANCHP(l) ,BLEG(1) 

DIMENSION  FARR1(6) ,FARR2(6) 

COMMON  /BLK1/TEMP, VISC , DENS , DlOO , PAMB,ALT , FLUID? , FLUIDK , V100 
DATA  FARR 1,FARR2/ 12*0./ 

K=IL 

LEO  BRANCH  P( K+20*NBP2 ) 

M=BRANCHP( K+6*NBP2) 

Ml=7+(2*M) 

Q=ABS^BLEG<  LEG+2*NL) )  +  . 000001 
IDEO20 

IFfBRANCHP(K+Ml*NBP2) .GT.O. .AND.M.LT.6)IDEG=10 

IF(M.EQ.1)G0  'ID  2 

IF(M.EQ.2)IDEG=10 

CALL  DARR( FARRl , FARR2 ,M  K,BRANCHP,NBP2) 

CALL  IOTERP{0,FAAR2,FARRl,IDEG(M,DPl,IND) 

1  DP=DPl*  ( (  VIoC/8KAnCHP(  K+5*NBP2 ) )  *  * .  25 ) 

IF { I DEO . EO . 10 ) DP=DPl* ( VISC/BRANCHP ( K+5*NBP2 ) ) 

DP=DP/U 

BLLG ( LEG+ 1 1*NBP2 ) =BLEG < LEO 1 1*NBP2 ) +DP 
RETURN 

2  RP=BRANCHP(K+7*NBP2) 

RQ=BRANCHP( K+8*NBP2 ) 

CK=RP/RQ**2 

DP1=CK*Q*Q 

IF( IDEG . EQ. 10 ) DP1*( RP/RQ) *Q 

GO  TO  1 

END 
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6.2,10  Subroutine  PTEE24 

DTEE24  is  the  dynamic  element  model  for  a  tee. 

6.2.10.1  Math  Model 

When  DTEE24  is  called  from  TTL  subroutine,  the  connecting  ports  to 
the  tee  are  initialized  for  the  assembly  direction  and  connecting  ler 
numbers.  The  flow  into  each  port  and  the  port  area  and  fluid  velocity 
are  also  calculated.  A  test  is  made  for  flow  direction,  then  the  energy 
loss  for  combining  or  dividing  flow  is  calculated.  Figure  48  shows  *.».• 
tee  and  its  branch  point  representation. 


Junction  1 


Junction  3 


N —  Junction  2 

(The  Branch  of  the  Tee  is  Always  Junction  2) 


The  Six  Flow  Conditions  for  a  Pee  in  r"F224 


FIGURE  48 


TEE 
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6.2.10.2  Assumptions  -  See  Appendix  C. 

6.2.10.3  Computations 

The  method  of  derivation  for  the  tee  and  cross  element  flow  dividing 
and  flow  combining  energy  losses  is  shown  in  Appendix  C. 

6.2.10.4  Approximations  -  See  Appendix  C. 

6.2.10.5  Limitations  -  Not  applicable. 
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6.2.11  Entry  DCR025 

DCR025  is  called  from  TTL  and  is  similar  to  DTEE24.  The  connecting  ports 
are  initialized  for  assembly  direction  and  connecting  leg  numbers.  The  previous 
calculated  flow  rates  are  initialized  for  the  flow  rate  and  flow  direction  in 
each  leg.  Using  this  information  the  energy  loss  for  combining  or  dividing  flow 
is  calculated  similar  to  the  tee  calculation  as  shown  in  Appendix  C.  There  are 
fourteen  flow  conditions  for  the  cross.  The  cross  and  tee  are  both  represented 
as  one  branch  point  during  dynamic  calculation. 
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6.2.11.1  DTEE24  -  DCR025  Variable  Names 


Variable 

Description 

Dimension 

A 

Port  area 

IN2 

ALT 

Altitude 

FT 

B 

Array  for  marking  beginning  or  end  of  leg 
at  junction 

— 

BLEG 

Array  containing  calculation  data 

— 

BRANCHP 

Array  containing  dynamic  element  data 

— 

DENS 

Fluid  weight  density  at  atmospheric  pressure 

LB/FT3 

D1 

Flow  direction  indicator 

— 

DP 

Calculated  pressure  drop 

PSI 

D100 

Weight  density  at  100°F 

LB/FT3 

FLUIDF 

Viscosity-pressure  correction  factor  at  100°F 

— 

FLUIDK 

Viscosity-pressure  correction  factor  at  fluid 
temperature 

— 

I 

Integer  counter 

— 

IL 

Row  location  in  BRANCHP  array 

— 

M 

Integer  counter 

— 

N 

Array  for  leg  numbers 

— 

NBP2 

Total  number  of  rows  in  BRANCHP  array 

— 

NL 

Total  number  of  row  in  BLEG  array 

— 

PAMB 

Atmospheric  ambient  pressure 

PSI 

Q 

Fluid  flow  rate  (see  Appendix  C) 

GPM 

QO 

Fluid  flow  rate  (see  Appendix  C) 

GPM 

Q1 

Fluid  flow  rate  (see  Appendix  C) 

GPM 
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Dimension 


Variable 

Q2 

Fluid 

Descript  ion 

flow  rate  (see  Appendix  C) 

TEMP 

Fluid 

temperature 

V 

Fluid 

velocity  (see  Appendix  C) 

VO 

Fluid 

velocity  (see  Appendix  C) 

VI 

Fluid* 

velocity  (see  Appendix  C) 

V2 

Fluid 

velocity  (see  Appendix  C) 

V100 

Fluid 

viscosity  at  100°F 

GPM 

°F 

FT/SEC 
FT/SEC 
FT/ SEC 
FT/SEC 
CENTISTOKES 


i 
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6.2.11.2  DTEE24  -  DCR025  Subrouting  Listing 


SUBROUTINE  DTEE24 ( IL,  BRANCHP  ,NBP2 ,  BLEG ,NL) 

C  DYNAMIC  RESISTANCE  FOR  TEE  REV  12/10/79 

DIMENSION  N(3),DI(3),Q(3),A(3),V(3) 

COMMON  /BLKl/TiMP , VISC , DENS , Dl 00 , PAMB , ALT , FLUI DF , FLUI DK , VI 0  0 
DIMENSION  BRANCHP ( 1 ) , BLEEf 1 ) 

DO  1  1=1,3 

N( I ) =BRANCHP( IL+( 6+1 ) *NBP2 ) 

B=BRANCHP( IL+(9+I)*NBP2)*2.-l. 

Q(I)=BLBG(N(I)+2*NL) 

A( I )=C BRANCHP(IL+( 3+1 ) *NBP2 ) **2) *. 7854 
V(I)  =  (  (ABS(QfI))*23l./60.)/AU))/12. 

DI ( I ) =B*Q( I ) 

Q( I)=ABS(Q( I) ) 

1  CONTINUE 

IF(DI(1)*DI( 2)*DI(  3) ) 2, 11, 14 

2  IF(DI(2).GT.O.)QO  TO  3 
GO  TO  6 

3  IFfDK  1) .GT.O. )GO  TO  4 

GO  TO  5 

4  V0=V( 3) 

V1=V(1) 

V2=V(2) 

GO  TO  7 

5  V0=V<1) 

Vl=V( 3) 

V2=V(2) 

GO  TO  7 

6  VQ=V( 2) 

V1=V(1) 

V2=V( 3) 

7  DP= . 68*V0*  *  2+ . 13*Vl*  *  2+ . 55*V2*  *  2- . 36*  V0*Vl- . 209  7* V0*V2 
GO  TO  9 

8  DP=V0**2+ . 55*V1* *2+ . 55*V2**2- . 2097*V0* ( V1+V2) 

9  DP=(DP*DENS)/( 144. *32. 2) 

DO  10  M=1 , 3 

IF(DI(M) .LT.0. )BLEG(N(M)+4*NL)=BLBG'N(M)+4*NL)-DP 

10  CONTINUE 
RETURN 

11  IF(DI( 2) . EQ . 0 .) RETURN 
IF ( DI ( 2 ).  GT. 0 .) GO  TO  12 
V0=V*  2) 

Vl=V(i) 

IFfDIf 1).EQ.0.)V1=V(3) 

GO  TO  13 

12  V0=VQ) 

IF(DI( 1) .EQ.0. )V0=V( 3) 

Vl=V( 2) 

13  DP=. 5*V0**2+ . 55*V1**2-.2097*V0*V1 
GO  TO  9 

14  IF(DI( 2) . LT.0. )GO  TO  15 
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6.2.11.2  (Continued) 


GO  TO  18 

15  IF(DI(1).LT.O.)GO  TO  16 
GO  TO  17 

16  VQ*V( 3) 

Vl=V( 2) 

V2=V(1) 

Q0=Q( 3) 

Q1=Q( 2) 

Q2=Q( 1 ) 

GO  TO  19 

17  V0=V(1) 

Vl=V( 2) 

V2=V( 3) 

Q0=Q( 1) 

Ql=Qf2) 

Q2=Q( 3) 

GO  TO  19 

18  V0=V<2) 

Vl=V(l) 

V2=V( 3 ) 

Q0=Q( 2) 

Ql-Q(l) 

02=Q(3) 

GO  TO  20 

19  DP=. 3*V1**2+ . 48*V2**2+V0**2-2 . *V0* ( ( V2*Q2+V1*Q1 )/Q0 ) 
GO  TO  9 

20  DP=.3*Vl**2+.3*V2**2+V0**2~.466*V0*((Vl*Ql+V2*O2)/QO) 
GO  TO  9 

ENTRY  0CJO25 

RETURN 

END 
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6.2.12  Subroutine  DVS034 


DVS034  is  the  dynamic  subroutine  for  calculating  the  internal  resistance 
or  losses  for  a  type  34  (four  way  three  position  valve),  a  type  35  (three-way- 
two  position  valve),  a  type  36  (2  way-two  position  valve),  a  type  37  (flow 
regulator),  and  a  type  38  (orifice  sizer). 

6.2.12.1  Math  Model 

The  type  34  valve  model  is  shown  in  Figure  49.  Five  internal  flow 
paths  are  considered  in  the  valve.  There  are  three  positions  identified  as 

control  code  1,  2  and  3. 


CONTROL  CODE  1  CONTROL  CODE  2  CONTROL  CODE  3 

TYPE  34  VALVE 
Figure  49 

Using  control  code  1,  pressure  is  ported  to  C3  and  C4  is  ported  to  return. 

Leakage  flow  is  from  pressure  to  return  and  high  resistance  are  placed  in  the 
legs  from  P  to  C4  and  C3  to  R.  Leakage  flow  is  considered  to  be  laminar  and 
normal  flow  through  the  valve  is  considered  turbulent.  When  control  code  2  is 
used,  pressure  is  ported  to  C4  and  C3  is  ported  to  return.  High  resistances 
are  placed  in  the  legs  from  P  to  C3  and  C4  to  return.  With  control  code  3  the 
valve  is  closed  with  high  resistances  placed  in  all  legs.  Leakage  flow  is  considered 
to  be  from  P  to  R  and  may  be  input  by  the  user. 

The  type  35  valve,  Figure  50,  has  three  internal  flow  paths  and  two  control 
codes  (1  and  3). 
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CONTROL  CODE  1  CONTROL  CODE  3 

TYPE  35  VALVE 
Figure  50 

Control  Code  1  ports  pressure  to  C  and  Control  Code  3  ports  C  to 
Return. 

The  type  36  valve.  Figure  51,  has  only  one  internal  flow  path, 
but  has  two  control  codes  (1  and  3).  It  is  a  simple  on-off  type  valve. 


P 


R 


CONTROL  CODE  1  CONTROL  CODE  3 

TYPE  36  VALVE 
Figure  51 


The  type  37  flow  regulator  and  type  38  orifice  sizer  are  similar,  except 

the  orifice  sizer  calculates  an  orifice  diameter  through  FLOCHEK  subroutine. 

The  flow  regulator  model,  orifice  sizer  model,  Figure  52,  places  a  high  resistance 

in  the  internal  leg  and  uses  a  Q,  and  Q  ,  term  for  the  fixed  flow  rate.  If 

loss  gain 

the  pressure  drop  is  less  than  the  minimum  pressure  drop,  the  Q^osg  anc*  Qgain  terms 
are  set  to  zero  and  a  low  resistance  is  placed  in  the  internal  leg. 


Qloss 


Qin 


f 


I  Qgain 

'WVW — 


Qout 

High  Resistance 
in  Internal  Leg 


FIGURE  52  FLOW  TYPE  37  AND  38  REGULATOR  AND  ORIFICE  SIZER 
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6.2. 


6.2. L 2 . 3  Computations  - 

The  valve  physical  and  flow  characteristics  are  initialized  from  VS034 
array.  Laminar  pressure  drop  for  leakage  from  pressure  to  return  is 
calculated  as 

.IP  =  CKLxQ 

and  turbulent  pressure  drop  for  normal  flow  through  the  valve  is  calculated 


as 


AP  =  CKTxQ2 


Where  AP  -  Pressure  drop  in  psi 
Q  -  flow  in  gpm 
CKL  —  laminar  flow  coefficient 
CKT  -  turbulent  flow  coefficient 

6.2.12.4  Approximations  -  Not  applicable 

6.2.12.5  Limitations  -  Not  applicable 
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6.2.12.6 

DVS03A  Variable  Names 

Variable 

Descript  ion 

Dimens  ion 

ALT 

Altitude 

FT 

ARRAY 1 

Computational  array 

-- 

BLEG 

General  purpose  array 

— 

BRANCHP 

Dynamic  element  data  storage  array 

— 

CK 

Resistance  coefficient 

— 

CKL 

Laminar  leakage  coefficient 

PS1/GPM 

CRT 

Turbulent  leakage  coefficient 

PSI/GPM 

DENS 

Fluid  weight  density  at  atmospheric 
pressure 

LB /FT  3 

DPI.l ,  DPL2 , 

,  Resistance  factor  for  valve  internal  leg 

PSI/GPM2 

DPL3 , DPL4 . 
DPL5 

DPI 

Minimum  pressure  at  rated  flow 

PSI 

DP2 

Pressure  difference  between  inlet  and  outlet 

PS  I 

D100 

Weight  density  at  100°F 

LB/FT3 

FLU IDF 

Viscosity-pressure  correction  factor  at  100°F 

— 

FLUIDK 

Viscos it v-pressure  correction  factor  at  fluid 
temperature 

— 

IL 

Row  location  in  BRANCHP  array 

— 

IND 

Indicator  to  FLOCHEK  subroutine 

_ 
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Variable 

IP1 

IP2 

J 

K 

LEG 

M 

MLEG 

NBP2 

NI, 

NPQ 

PAMB 

PQL 

PI 

P2 

RPL 

RPT 

RQL 

RQT 

RQ1 

TEMP 

TY 

vise 

V RAT  10 
V100 


Descripr ion  Dimension 

Upstream  pressure  point  number  for  flow  regulator 
type  37 

Downstream  pressure  point  number  for  flow  regulator 
type  37 

Integer  counter 

Row  location  in  BRANCHP 

Leg  number 

Operating  code  (see  Figure  4-9) 

Dummy  array  for  leg  numbers 

Total  number  of  rows  in  BRANCHP  array 

Total  number  of  rows  in  BLEG  array 

Total  number  of  rows  in  PQL  array 

Atmospheric  ambient  pressure 

Array  containing  pressure  point  data 


Inlet  pressure  PSI 

Outlet  pressure  PS] 

Rated  pressure  drop  for  leakage  conditions  PSI 

Rated  pressure  drop  for  rated  flow  PSI 

Rated  flow  of  flow  regulator  GPM 

Rated  flow  of  valve  '  GPM 

Rated  flow  for  flow  regulator  tvpe  37  GPM 

Fluid  temperature  °F 

Element  type 

Fluid  viscosity  at  atmospheric  pressure  CENTISTOKES 

Viscosity  ratio 

Fluid  viscosity  at  100°F  CENTISTOKES 
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6.2.12.7  DVS034  -  Subroutine  Listing 


SUBROUTINE  DV  S034 ( TY , I L , BRANCHP ,NBP2 , BLEG , NL , PQL , NPQ) 

COMMON  /BLK1/TEMP, VISC, DENS, DIOO.PAMB, ALT, FLUIDF.FLUIDK, VlOO 
DIMENSION  BRANCHP( 1) ,BLEG( 1) ,PQL(1) 

DIMENSION  MLEC(5) ,ARRAY1(5,3) 

K-IL 

IF(TY .EQ. 37 . .OR.TY .EQ.38 . )GO  TO  10 
MLEG( 1 )-BRANCHP(K+15*NBP2 ) 

MLEC( 2 )«BRANCHP(K+16*NBP2 ) 

MLEG( 3)»BRANCHP( K+17*NBP2 ) 

MLEG(4)«BRANCHP(K+18*NBP2) 

MLEG(5)-BRANCHP(K+19*NBP2) 

M-BRANCHP( K+l 4*NBP2 ) 

RPT-BRANCHP(K+10*NBP2 ) 

RQT=BRANCHP( K+9*NBP2 ) 

RPL«BRANCHP(K+1 3*NBP2 ) 

IF ( BRANCHP ( K+l 2*NBP2 ) . EQ . 0 . )BRANCHP( K+l 2*NBP2 ) « . 0001 
RQL=BRANCHP( K+l 2*NBP2 ) 

CKT-RPT/RQT**2.0 

CKL-RPL/RQL 

VRAT I0-( VISC/BRANCHP( K+l 1*NBP2) ) 

IF(TY. NE . 36 . )G0  TO  2 

C  *****TYPE#36  TWO  WAY-TWO  POSITION  SOLENOID  VALVE***** 

ARRAYI (1,1 )-ABS( BLEG(MLEG( 1 )+2*NL) ) 

ARRAY1 (1,2) =*CKT* ( ARRAY 1(1,1) )**2 -0 

ARRAY 1 ( 1 , 2 )-( ARRAYI ( 1 , 2 ) *VRATIO**0 . 25 ) /ARRAYI ( 1 , 1 ) 

ARRAYI ( 1,3) -CKL* ARRAYI (1,1) 

ARRAYI ( 1 , 3 )-( ARRAYI ( 1 , 3 )*VRAT10)/ ARRAYI ( 1 , 1 ) 

IF(M-NE.l)  GO  TO  1 

C  *****VALVE  IS  OPEN  AND  FLOW  IS  TURBULENT***** 

DPH-ARRAY1(1,2) 

BLEG(MLEG( 1 )+l 1*NL)«3LEC(MLEG( 1)+1 1*NL)+DPL1 
GO  TO  9 

1  CONTINUE 

C  *****VALVE  IS  CLOSED  AND  FLOW  IS  LAMINAR***** 

DPL1 -ARRAYI (1,3) 

BLEC(MLEG( 1 )+l 1*NL)-BLEG(MLEG( 1 )+l 1*NL)+DPL1 
GO  TO  9 

2  CONTINUE 

IF(TY.NE.35.)GO  TO  5 

C  *****TYPE<>35  THREE  WAY-TWO  POSITION  SOLENOID  VALVE***** 

DO  3  J-1,3 

ARRAYI (J , 1 )-A3S( BLEG(MLEG( J)+2*NL) ) 

ARRAYI (J, 2 )-CKT*(ARRAYl(J,l))**2.0 

ARRAY1(J , 2 )"( ARRAYI (J ,2)*VRATI0**.25)/ARRAY1( J, 1) 

ARRAYI (J ,3) -CKL*ARRAYl ( J , 1 ) 

ARRAY1( J ,3)"(ARRAY1( J ,3)*VRATI0)/ARRAY1( J , 1) 

3  CONTINUE 
IF(M.NE.l)  GO  TO  4 

C  *****VALVE  IS  OPEN  P-C  FLOW  IS  TURBULENT***** 

DPL1*ARRAY1 (1,3) 
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6.2.12.7  (Continued) 


DPL2=ARRAY1(2,2) 

BLKC(HLEC( 1 )+l 1*NL)*BLEG(MLEG( 1 )+l 1*NL)+DPL1 
BLEC(MLEG(2)+11*NL)=3LEG(MLEG(2)+11*NL)+DPL2 
B LEG ( MLEG( 3 )+l 1 *NL )  =  3 . E07 
GO  TO  9 

4  CONTINUE 

C  *****VALVE  IS  CLOSEO  C-R  FLOW  IS  TURBULENT***** 
DPLI=ABRAY1(  1  ,3) 

DPL3=ARRAYl (  3,2) 

BLEr:(MLEG(  1  )  +  l  1*NL)  =  BLF.G(MLEG(  1  )+l  l*NL)+DPLl 
BLEG(;lLEG(2)+ll*NL)=3.E07 

BLEG(MLEG( 3)+l 1*NL)=BLEG(MLEG( 3 )+l 1*NL)+DPL3 
GO  TO  9 

5  CONTINUE 

IF(TY.NL .34. )CO  TO  9 

C  *****TYPE/:(34  FOUR  WAY-THREE  POSITION  SOLENOID  VALVE***** 
DO  6  J=i ,5 

ARRAY 1 ( J , I )=ABS ( 3LEG( MLEG ( J)+2*NL) ) 

ARRAY! (J ,2)=CKT*(ARRAYI(J ,1)**2.0) 

ARRAY1 ( J , 2 )  =  ( ARRAY 1  (  J , 2 )*VRATIO** . 25)/ ARRAY1 ( J , 1 ) 
ARRAY! (J ,3)-CKL*ARRAYl(J,l) 

ARRAY 1 ( J  ,  3 )  =  ( ARRAY 1 ( J , 3 ) * V  RATI 0) / ARRAY l ( J , 1 ) 

6  CONTINUE 

I F (M • EQ . 2 )  GO  TO  7 
IF( i.EQ.3)  GO  TO  8 

C  *****  VALVE  IS  OPEN  P-C3  AND  C4-R  ***** 

DPL1 =ARRAY1 ( 1,3) 

DPL2=AKRAY1 ( 2,2) 

UPL5=AKKAY1 (5,2) 

BLEG(MLEG( 1 )+l 1*NL)-BLEG(MLEG( 1 )+l 1*ML)+DPL1 
BLEC(MLEG( 2 )+l 1*NL)=BLEG( MLEG ( 2 )+I 1*NL)+DPL2 
ULKG(MLEG(3)+11*NL)=3.E07 
B  LEG ( MLEG ( 4 ) + 1 1*NL)  =  3.E07 

BLEG(MLEG( 5)+l 1*NL)=BLEG(MLEG( 5)+Il*NL)+DPL5 
GO  TO  9 

7  CONTINUE 
C 

C  *****  VALVE  IS  OPEN  P-C4  AND  C3-R  ***** 

C 

DPL1«*ARRAY1(  1  ,3) 

DPL3«*ARRAY1(  3,2) 

DPL4=>ARRAY1  (4,2) 

3LEG(MLEG(l)+ll*NL)-BLF.G(MLEG(l)+ll*NL)+DPLl 
i3LF,G(.!LEG(2)+1  1*NL)=3.E07 

BLEG( M1.EG( 3 )+l 1*NL) “BLEG(MLEG( 3)+l 1*NL)+DPL3 
BLEG(MLEG(4)+I i*NL)“BLEC(MLEG(4)+l 1*NL)+DPL4 
BLEO(MLEC(5)+ll*NL)=3.E07 
GO  TO  9 

8  CONTINUE 
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6.2.12.7  (Continued) 


C  *****  VALVE  IS  CLOSED  ***** 

C 

DPL1=ARRAY1 (1,3) 

BLEC(MLF.G(  1  )+l  l*NL)=BLEC(rfLEG(  1  )+l  l*NL)+DPLl 
BLEC(MLF.G(  2  )+Il*NL)  =  3.E07 
BLEG(MLEG(  3  )+l  1*N'L)  =  3 .  E07 
BLEC(MLi;G(4)+ll*KL)=3.F.07 
BLKG(:lLEG( 5)+l l*NL)=3.E07 
9  CONTINUE 
RETURN 

Lu  I NU=BAANC!1P(  K+8*NBP2  ) 

R()l  =SRANCIIP(  K+5*NBP2  ) 

IP1=BRANCHP(K+3*NBP2) 

IP2=BRANCHP(K+4*NBP2) 

LEG= BRANCH P( K+l 5*N3P2 ) 

IF( IND.GE. 1 )GO  TO  11 
PQL(1P1+NPQ)=(-RQ1) 

PQL( IP2+NPQ) =RQ1 

bleg(u;g+ii*nl)=3.e9 

RETURN 

11  Pl-PQL(IPl) 

P2=PQL( IP2 ) 

OP  1  aBRANCIlP(  K+6*NBP2  ) 

DP2*P1-P2 

1 F( DPI . LE .0 . )0Pl=l . 

CK=DPl/Ri)l 

BLEC(LEC+ll*\’L)=CK 

RETURN 

END 


213 


6.2.13  Subroutine  DMTR8 

DMTR8  is  a  dynamic  subroutine  for  calculating  the  internal  flows  and 
pressure  losses  In  a  hydraulic’ motor .  The  motor  may  be  a  2  port  or  3  port 
model,  see  Figure  53. 


6.2.13.1  Math  Model 

The  motor  losses  are  calculated  and  input  into  BLEG  column  5.  If  the 
motor  should  be  stalled,  MTRCHK  places  an  indicator  in  the  data  column  15. 

If  there  is  an  indicator  in  this  position,  a  high  resistance  is  placed  in  BLEG 
column  12. 

6.2.13.2  Assumptions  -  A  minimum  break  out  torque  of  60  psi  is  assumed. 

6.2.13.3  Computat ions  -  Input  Torque  *  Output  Torque  (Load)/Ef f iciencv 

PRESS  DROP  *  2  it  *  INPUT  TORQUE/DISPLACEMENT 

6. 2. 13. A  Approximations  -  Not  applicable. 

6.2.13.5  Limitations  -  Not  applicable. 
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6.2.13.6  DMTR8  Variable  Names 


Variable 

Description 

Dimens  ion 

BLEG 

General  purpose  array 

— 

BRANCHP 

Dynamic  element  data  storage  array 

— 

CDK 

Leakage  coefficient 

— 

CDL 

Rated  case  drain  leakage  flow 

GPM/3000  PS  ID 

DELP 

Pressure  difference  between  inlet  and  outlet 

PS  ID 

DISPL 

Motor  displacement 

in3/rev 

DP 

Pressure  drop 

PSID 

EFF 

Overall  motor  efficiency 

% 

1L 

Element  row  location  in  BRANCHP 

— 

IND 

T  ..  ,  it  j  , .  .  0=normal 

Indicates  normal  or  stalled  condition  ,  , ,  , 

l=stalled 

— 

LEG 

Leg  number  inlet  to  outlet 

— 

LEG1 

Leg  number  inlet  to  case 

— 

NBP2 

Total  number  of  rows  in  BRANCHP  array 

— 

NDP 

Case  drain  pressure  point  number  (If  used) 

— 

NL 

Total  number  of  rows  in  BLEG  and  ILEP  arrays 

-- 

NPQ 

Total  number  of  rows  in  PQL  array 

— 

POL 

Array  of  pressure  points,  flows  and  port  numbers 

PRl 

Inlet  pressure 

PS  I 

PR2 

Outlet  pressure 

PS1 

PI 

Inlet  pressure  point  number 

— 

P2 

Outlet  pressure  point  number 

— 

Q 

Flow  rate 

GPM 
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Variable 


Description 


Dimension 


TORQL 

TT 


Load  torque  IN-LB 

Equivalent  inlet  torque  IN-LB 


6.2.13.7  DMTR8  Subroutine  Listing 


SU BROUTINE  DMTR8(IL , BRANCHP , NBP2 , PQL , NPQ , BLEG , NL) 
DIMENSION  BRANCHP(l) ,PQL(1) ,BLEG(i) 

INTEGER  PI ,P2 
LEG-BRANCHP(1L+15*NBP2) 

LEG1-BRANCHP(IL+16*NBP2) 

IND-BRANCHP(IL+14*NBP2) 

Q»BLEC(LEG+2*NL) 

BRANCHP( IL+13* NB  P2 ) -Q 
Pl»BRANCHP( IL+4*NBP2 ) 

P2«BRANCHP(IL+6*NBP2) 

DISPL=»  BRANCHP  (  IL+7*NBP2  ) 

TORQL«BRANCHP( IL+8*NBP2 ) 

EFF»BRANCHP( IL+9*NBP2 ) 

CDL-BRANCHP( IL+I0*NBP2 ) 

IF  (  IND  .GE  .  1  )GO  TO  1 
TT-TORQL/EFF 
DP»2.*3.14159*TT/DISPL 
BLEG(LEG+4*NL)— -DP-60. 

GO  TO  2 

1  BLEG(LEG+11*NL)«3.E10 

2  NDP-BRANCHP(IL+6*NBP2) 

IF (NDP.EQ.O) RETURN 
PRl-PQL(Pl) 

PR2-PQL(P2) 

DELP-PRI-PR2 

CDK-3000./CDL, 

BLEG( LEG1+1 1*NL)=CDK 

RETURN 

END 
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fkecediho  fags  blank-not  filmed 


SECTION  VII 
OUTPUT 


The  output  section  of  SSFAN  is  contained  in  the  main  program  and  special 
purpose  subroutines.  The  input  data  cards  are  printed  from  the  main  program 
immediately  after  they  are  read  and  before  any  data  processing  is  done.  0PUT4 
subroutine  prints  the  heading  and  data  deck  title.  0PUT3  subroutine  prints  the 
system  assembly  of  legs  and  pressure  points  and  0PUT2  subroutine  prints  the 
corresponding  pressures  and  flow  rates.  QTCALC  subroutine  prints  the  quasi¬ 
transient  data  in  conjunction  with  GRAPH2  subroutine. 

7.1  0PUT4  Subroutine 

The  heading  and  data  deck  title  are  printed  from  0PUT4,  see  Figure  54. 

This  output  is  used  for  the  input  data  card  output,  the  assembly  output  and  the 
calculated  pressure  and  flow  output. 

7.2  0PUT3  Subroutine 

The  system  assembly  output  is  printed  from  0PUT3  subroutine,  see  Figure  55. 

Leg  numbers  and  branch  point  numbers  are  computer  assigned  and  are  cross  referenced 
to  junction  numbers  in  this  output.  The  leg  number  is  printed  with  its  upstream 
and  downstream  pressure  point  number.  The  corresponding  upstream  and  downstream 
junction  numbers  are  next  printed. 

The  elements  that  have  assigned  pressure  point  numbers  are  next  output  with 
its  name  and  junction  number(s). 

7.3  0PUT2  Subroutine 

0PUT2  subroutine  is  used  to  print  the  flow  rates  and  pressures,  Figure  56, 
in  a  corresponding  order  to  the  assembly  output  from  subroutine  0PUT3 .  The 
computer  assigned  leg  number  and  calculated  flow  rate  for  the  leg  are  first 
printed.  Next,  the  computer  assigned  pressure  point  number  and  the  calculated 
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EXAMPLE  SSFAN  SAMPLE  CASE  NUMBER  1 
ELEMENT  INPUT  DATA  -  CARDS  7  AND  ON 


7 . 3  0PUT2  Subroutine  (Continued) 

pressure  are  printed.  The  input  temperature  for  the  pressure  point  is  printed  in 
the  last  column. 

7 .4  Main  Program  Output  Data 

The  main  program  prints  out  the  data  cards  immediately  after  they  are  read. 
This  data  may  be  used  for  trouble  shooting  of  incorrect  input  data.  The  column 
number  headings  are  printed  at  the  top  of  the  data  with  data  fields  of  column 
width  8,  identified  by  alternating  +'s  and  $'s.  Data  cards  1  through  6,  system 
parameters  are  shown  in  Figure  54.  Figure  57  shows  the  input  data  from  cards  7 
and  on, immediately  after  it  is  read. 

7 . 5  Quasi  -  Transient  Data  Output 

The  quasi-transient  data  output  is  of  3  types;  (1)  Pressure  versus  time, 

(2)  Flow  versus  time  and  (3)  Piston  position  versus  time.  These  are  user  selected 
and  an  example  of  each  type  is  shown  in  Figures  58,  59,  60  and  61.  The  type  of 
output  is  printed  at  the  bottom  of  each  graph  along  with  the  system  data  deck 
title.  The  junction  number  associated  with  the  output  is  also  printed.  The 
tabulated  data  of  Figure  58  contains  all  the  calculated  time  steps  and  nay 
contain  more  points  than  are  plotted  on  the  graphs. 
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SSPAM 


SAMPLE  CASE  NUMBER  1 
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7 . 6  0PUT4  Subroutine  Listing 

SUBROUTINE  OPUT4 

COMMON  /BLK9/FTYPE(  16)  ,PRI.\T(4) 

WRlTK(t>,3) 

1  F0R!1AT(  '  '  ,80(  '*')  ) 

WRITE( 6 , 2 ) 

WRITE( 6 , I ) 

2  FORMAT ( '  ',34('*'),'SSFAN  PROGRAM', 33( 

3  FORMAT ('1',  80 ('*')) 

WRITE(6 ,4) (FTYPE(M) , M=1 ,8) 

4  FORMAT(/ /'  ' , 'DATA  DECK - 

RETURN 

END 


*')) 
,8AI0/ /) 
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7 . 7  0PUT3  Subroutine  Listing 


C 


SUBROUTINE  OPUT3( ILEF,BLEG,NL,PQL,NPQ) 

OPUT3  LISTS  LEG  NUMBERS  UP  &  DN  STREAM  PRESS  PTS  &  JCT  NO 
DIMENSION  ILEP( 1) ,BLEG( 1) ,  PQL( 1) 

COMMON  /BLK9/FTYPE(  16 ) , PRINT(  4 ) 

WRITE( 108,1) (FTYPEfM) ,M=1,8) 

1  FORMAT(8A10) 

WRITE* 108,2) 

2  FORMAT (//59HLEG  NO-LEG  END  PRESSURE  PT  NO-JUNCTION  PT  NO  &  ELEMENT 
1  TYPE) 

WRITE( 108,3) 

3  FORMAT<//,lX,3iiLEG,2X,llHPRESSURE  FT , 3X , 1 3HBRANCH/END  PT,lX,lH*,lX 
1 , 5HPRESS , 2X, 7HELEMENT, 9X, 8HJ UNCTION) 

WRITE( 108,4) 

4  FORMAT ( IX, 3HNO.  2X,4H(UP) ,3X,4H(DN) ,4X,4H(UP) ,4X,4H(DN) ,1X,1H*,1X, 
15HPT  NO,19X,7HNUMBERS) 

DO  25  M=l, 100 

IF( ILEP(M) . EQ.0.AND.PQL(M+2*NPQ) .EQ.0. )GO  TO  26 
IF(PQL(M+2*NPQ).EQ.O.)GO  TO  21 
IF(PQL(M+2*NFJ).EQ.5.)GO  TO  7 
IF*PQL(M+2*NPQ) .EQ.7. )GO  TO  9 
IF(PQL(M+2*NPQ).EQ.9.)GO  TO  11 
IF(PQL*M+2*NPQ) .EQ.91. )QO  TO  11 
IF* PQL(M+2*NPQ) .EQ.92. )Q0  TO  11 

IF(PQL(M+2*NPQ).EQ.4. .OR.PQL*M+2*NPQ).EQ  41.JGO  TO  13 

IF * PQL* M+2*NPQ) .EQ.24. )GO  TO  15 

1F(PQL(M+2*NPQ) .EQ.25. )QO  TO  17 

IF*PQL*M+2*NPQ) .EQ.13. )GO  TO  5 

IF(PQL(M+2*NPQ) .eq.34. )GO  TO  19 

IF*PQL*M+2*NPQ).EQ.8.)GO  TO  23 

IF(PQL(M+2*NPQ).EQ.35.)00  TO  19 

IF(PQL*M+2*NPQ).EQ.36.)GO  TO  19 

IF(PQL(M+2*NPQ)  EQ.37.)GO  TO  19 

IF*PQL*M+2*NPQ) .EQ  38.)GO  TO  19 

GO  TO  25 


5 

6 


WRITE*108,6)M,  ILEP( M ) ,  ILEP ( M+NL )  ,BLEG(M) , BLEG* M+NL)  ,M,PQL*M+3*NPQ) 
FORMAT(I3,I6,I7,F9.0  F8.0,lX,lri*,lX,l5,4X,3HFBP,F17.0) 

GO  TO  25 


7  WRITER 108,8)M,ILEP(M) ,ILtP(M+NL) ,BLEG(.V1) ,BLEG(M+NL) ,M  PQL(M+3*NPQ) 

8  FORMAT*  13,16,17 ,F9.0 ,F8.0, IX,  1H* , IX, I5,4X(4HPUMP,F16.0) 

GO  TO  25 

9^RITL*108,10)M,ILEP(M),ILEP(M+NL),BLEG(M),BLEG(M+NL),M,PQL(M+3*NPQ 

10  FORMAT ( 13,16, I7,F9.0,F8.0, 1X,1H*, IX, I5,4X,5HACCUM,F15.0) 

GO  TO  25 

11 ^ wRITE *  108 , 1 2 ) M , I LEP*  M ) , I LEP*  M+NL ) , BLEG (M) , BLEG*  M+NL) , M, PQL*  M+3+NPQ 

12  FORMAT(I3,I6,I7,F9.0,F8.0,1X,1H*,1X,I5,4X,4HRESV,F16.0) 

GO  TO  25 

13  ^WRITE* 108 , 14 ) M , I LEP( M ) , I LEP( M+NL) , BLEG (M)  BLEG* M+NL) ,M,PQL(M+ 3*NPQ 
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14  FORMAT(I3,I6,I7.F9.0,F8.0  1X,1H*,1X,I5,4X,4HACTR,F16.0) 

GO  TO  25 

15  WRITE(  108,16)M,  ILEP(M)  ,IL£PM+ND  ,BLEG(M)  ,BLEG< H+NL)  ,M, PQLf M+3*NPQ 
1) ,PQL(M+4*NPQ) , PQL( M+5*NPQ) 

16  FORrtATf I3,I6,I7,F9.0,F8.0  lX,lri*,lX  I5,4X,3HTEE,F11.0,1H-,F5.0,1H- 
1,F5.0) 

GO  TO  25 

17  WRITE/  108 , 18 )H,  ILEP(M) , ILEP(M+NL)  ,BLEG/M)  ,BLEG( t-i+NL)  ,M, PQL< M+3*NPU 
1) 

2POL(M+4*NPQ) , PQL/ M+5*NPQ)  ,PQL(i'l+6*NPQ) 

18  PORNAT(l3,I6,l7,F9.0,F8.0,lX,lH*,lX,I5,4X,5hCRQS5,F8.Q,lH-,F5.0,l 
IH- ,F5.0,lri-,F5.0) 

GO  TO  25 

19  wRITE(  108,20)i‘i,  ILEP/rf) ,  ILEP(>RNL}  ,BLEG(M)  ,BLEG/M+NL)  ,M,PQL/M+3*NPQ 
1) 

20  FORi*lAT(I3,I6,l7,F9.0,F8.0,lX,lH*,lX,I5,4X,3HVLV,F18.0) 

GO  TO  25 

21  *vRITt(  108 , 22)M,  ILEP(rt)  ,IU2F(M+NL>  ,BLEG/M)  ,BLEG(M+NL) 

22  FORMAT/ I3/I6,l7,F9.0,F8.0,lX,lH*) 

GO  TO  25 

23  WRITE/  108/24)rt,ILLP/M) ,  ILEP/M+NL)  ,BLEG/M)  ,BLEG/M+NL) , M,  PQL/M+3*NPQ 
1) 

24  EORMAT/ 13# 16 , 17  f F9 .0 ,F8 .0 ,1X, 1H* , IX, 15, 4X, 5HMOTOR,F15 .0) 

25  CONTINUE 

26  RETURN 
END 
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7 . 8  0PUT2  Subroutine  Listing 


SUBROUTINE  OPL7T2  ( ILEP ,  BLEG .  NL ,  PQL ,  NPQ) 

COMMON  /BLK1/TEMP ,  VISC ,  DENS , DIO  0 ,  PAMB , ALT , FLUI DF , FLUI DK , V100 
DIMENSION  ILEPf 1) ,BLEG( 1) ,PQLf l) 

COMMON  /BLK  VI  ERROR,  ITER 
WRITE ( 108 , 1 ) ITER 

1  F0RilAT(//13H  ITERATIONS  =  ,13) 

WRITEf 108, 2) ALT 

2  FORMAT ( 11HALTITUDE  =  F8.2,1X,2HFT) 

WkITe(  108,3)  PAMB 

3  FORMATS 19HAMBIENT  PRESSURE  =  ,F8.2, !X,4hPSIA) 

«RITe( 108,4) 

4  FORMAT(///3HLEG ,  6X ,  4HFLOW,  5X ,  2H** ,  5X ,  8  HP  RES  SURE ,  6X ,  8HPRESSURL ,  6X,  1 
I LHTeMPERATURE,/3HNG. ,6X,5ri(GPM),4X,2ti**,6X,6HPT  NO. ,8X,6H(PSIG) ,8X 
2,7H(DEG  F) ) 

DO  10  ri=l,10000 

IF ( ILEP(M) .EQ.O .AND. PQL(M) .EQ.O . )GO  TO  ll 
IFfILEPC-1)  .EQ  0.  )GO  TO  8 
IF(PQL(M).EQ.O.)GO  TO  6 

iVRITE(108,5)M,BLEG(M+2*NL)  M,PQLfM)  ,BLEG/M-t-13*NL) 

5  FORMATS I3,2X,F9.2,4X,2H**,6X,I5,6X,F10.2,8X,F7.2) 

GO  TO  10 

6  WRITE' 108, 7)M,8LEG(M-*-2*NL) 

7  FORMAT' 13,2X,F9.2,4X,2H**) 

GO  TO  10 

WRITEf 108, 9)M  PQL'M) ,BLEG'M+13*NL) 

FORMAT' 18X, 2H** ,6X, 15, 6X,F10. 2, 8X,F~. 2) 

CONTINUE 
RETURN 
END 
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SECTION  VIII 


UTILITY  SUBROUTINES 

8.1  INTERP  Subroutine 

The  INTERP  subroutine  provides  interpolation  for  continuous  or  discon¬ 
tinuous  functions  of  the  form  Y  =  f (X) .  INTERP  is  a  shortened  version  of  a 
MCAUTO  library  functional  subroutine  named  DISCOT. 

INTERP  uses  two  other  subroutines,  DISER1  and  LAGRAN,  to  derive  the  depen¬ 
dent  variable  from  tabulated  data  input  by  the  programmer.  Subroutine 
DISER1  gives  the  data  points  around  the  X  variable.  Lagranges  interpolation 
formula  is  used  in  the  LAGRAN  subroutine  to  obtain  a  Y  value.  For  an  X 
value  lying  outside  the  range  of  the  tabulated  data,  the  Y  is  extra¬ 
polated.  Fluid  viscosities  are  calculated  in  LAGRAN  by  using  the  ASTM  equation 
for  viscosity  (See  Appendix  B) .  A  fluid  viscosity  -  pressure  correction  factor 
FLU IDF  is  also  calculated  from  the  ASTM  viscosity/temperature  slope  and 
slope/constant  equations  as  described  in  Appendix  B. 

8.1.1  Solution  Method 

The  INTERP  subroutine  provides  the  necessary  control  parameters  to  DISER1 
and  LAGRAN  to  yield  a  dependent  variable.  The  subroutine  arguments  are  as 
follows : 

Subroutine  INTERP  (X,  TABX,  TABY ,  NC,  NY,  Y,  IND) 

Where: 

X  -  Argument  of  function  Y  =■  f(X) 

TABX  -  X  array  of  independent  variables  in  ascending  order 

TABY  -  Y  array  of  dependent  variables 

NC  -  Control  word 

Tens  Digit  -  Degree  of  interpolation 
Units  Digit  -  0  =  Lagrange  interpolation 

1  «  Viscosity  calculation  with  ASTM  equation 

2  «  FLUIDF  calculation 
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NY  -  Number  of  data  points  in  the  Y  array 

Y  -  Dependent  variable 

IND  -  Interpolation  Indicator 

0  =  Normal  interpolation 

1  =  Extrapolation  outside  the  range  of  data  points 

8.1.2  Assumptions.  Not  applicable 

8.1.3  Computations.  The  degree  of  interpolation  is  decoded  from  the 
control  word  NC  in  the  INTERP  subroutine  argument  and  passed  to  DISER1.  The 
error  indicator  IND  is  set  to  zero.  On  finding  the  data  point  closest  to  the 
X  value  from  DISER1,  it  is  entered  into  the  LAGRAN  subroutine  argument.  If 
the  ASTM  equation  is  to  be  used  for  a  viscosity  calculation,  IDX  is  set 

to  -1.  For  the  FLUIDF  computation  IDX  equals  -2. 

8.1.4  Approximations .  Not  applicable 

8.1.5  Limitations .  The  X  data  points  must  be  entered  in  an  ascending 
order.  When  tabulating  a  discontinuous  function  the  independent  variable  (X) 
at  the  point  of  discontinuity  is  repeated,  i.e.. 


Thus  for  discontinuous  functions  there  must  be  K  +  1  points  above  and  below 
the  discontinuity,  where  K  is  the  degree  of  interpolation. 
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8.1.6  INTERP  Variable Names 


Variables 

Description 

Dimensions 

IDX 

Degree  of  interpolation 

- 

1ND 

Solution  indicator 

=  0  Normal  interpolation 

»  1  Extrapolation  outside  of 

data  range 

NC 

Control  word 

- 

NPX 

Dummy  array 

- 

NPX1 

Location  of  data  point  X,  Y  for 
polation 

inter- 

- 

NY 

Number  of  Y  data  points 

- 

TABX 

X  array  of  data  points 

- 

TABY 

Y  array  of  data  points 

- 

X,  XA 

Independent  variable 

- 

Y 

Dependent  variable 

- 
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8.1.7  INTERP  Subroutine  Listing 


SUBROUTINE  IMTt.RP(  X  ,  TASX,  TA3Y,  NC  ,  NY,  Y  f  IND) 
DIMENSION  TAi3X(  1  )  ,TASY(  1  )  ,\'PX(  8) 

I OX=(NC-( NC/100) *190) /10 

IND=0 

XA=X 

CALL  DISER1 ( XA , TABX , 1 , NY , I DX ,NPX, IND) 

NPX 1 =N PX ( 1 ) 

IF( ( NC-I DX* 1 0 ) . EQ. 1 ) I DX=-1 
I F ( (NC-I OX* 10) . EQ. 2 ) I DX=-2 

CALL  LAGHAN  (  XA  ,  TA3X  (  N  PX  1 )  ,TA;3Y(NPXl)  ,IDX+1,Y) 

RETURN 

END 


8.2  DISER1  Subroutine 


The  subroutine  DISER1  returns  the  array  location  of  the  lower  bound 
value  of  the  interval  in  which  the  independent  variable  lies.  DISER1  is  a 
modification  of  a  MCAUTO  library  subroutine  named  D1SSER. 

The  arguments  for  the  DISER1  subroutine  are  as  follows: 

Subroutine  D1SER1  (XA,  TAB,  I,  NX,  ID,  NPX,  IND) 

XA  -  Independent  variable 

TAB  -  X  array 

I  -  Tabulated  data  location 

NX  -  Number  of  points  in  the  independent  array 

ID  -  Degree  of  interpolation 

NPX  -  Location  of  lower  bound  for  data  point  XA,  in  the  TAB  array 
IND  -  Indicator 

8.2.1  Solution  Method.  Not  applicable 

8.2.2  Assumptions .  Not  applicable 

8.2.3  Computations .  On  entry  of  the  independent  variable,  XA,  and  the  tabu¬ 
lated  data  form  the  TABX  array,  DISER1  finds  the  tabulated  data  values  that 
bound  XA,  and  returns  the  smaller  one  to  the  calling  program.  If  XA  were 

to  lie  outside  the  lower  end  of  the  data,  D1SER1  would  return  the  first  data 
point  as  the  lower  bound.  Should  XA  lie  outside  the  upper  tabulated  value, 
the  second  from  the  last  data  point  location  is  returned  by  DISER1. 

8.2.4  Approximations .  Not  applicable 

8.2.5  Limitations.  Not  applicable 


8.2.6  DISER1  Variable  Names 


Variable 

Description 

Dimensions 

IND 

Solution  indicator 

■- 

I,  ID,  IT,  J,  NLOC, 
NLOW,  NPB,  NPT ,  NPU, 
NPX,  NUPP,  NX,  NXX 

Integer  counters 

- 

Tab 

Array  of  independent  variables 

- 

XA 

Independent  variable 

2- 1  DISER1  Subroutine  Listing 


SUBROUTINE  DISERl ( XA , TAB , I , NX , I D , NPX , IND) 
DIMENSION  TAB  I  1 ) 

IF ( XA-TAB ( I ) ) 1 , 2 , 3 

1  IND=IND+1 
NPX=  I 
RETURN 

2  XA=TAd ( I ) 

NPX=  I 
RETURN 

3  J=I+NX-1 

I F ( XA-TAlS ( J ) ) 6,5,4 

4  InD=IND+1 
NPX  =  J- 1  0 
RETURN 

5  XA=TAB ( J ) 

NPX= J- ID 
RETURN 

6  imPT=ID+1 
NPii=NPT/2 
NPU=NPT-NPB 

IF  (NX-NPT)  •7,8,9 

7  I u=NX- 1 
GO  TO  6 

«  NPX=I 
RETURN 

9  NLON=I+NPB 

NUPP=I+NX- ( NPU+1 ) 

I  F  ( rJ  X—  20)15,15,10 

10  NXX=NX/2+I 

I F ( XA-TAB f  NXX ) ) 11, 14, 12 

11  NXX = NXX- NX/4 

IF l XA-TAB I NXX) >15,14,14 

12  N  X  X  =  N  X  X + N  X/ 4 

I  F  I  XA-TAtif  NXX)  >13,14,14 

13  NLOW=NXX-NX/4 
GO  TO  15 

14  N  LOkv  =NX  X 

15  DO  16  I I=NLOn , NUPP 
N  LOC  =  1 1 

I  F  (  TAB  <  I  I  )  -XA  )  16,1-7,17 
lb  CONTINUE 

NPX=NUPP-NPB+1 

return 

17  NPX=NL0C-nPB 

return 

END 
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8 . 3  LAGRAN  Subroutine 

The  LAGRAN  subroutine  interpolates  or  extrapolates  a  data  point  from 
two  known  tabulated  values.  In  addition,  LAGRAN  calculates  viscosity 
using  an  ASTM  viscosity  equation  and  a  fluid  viscosity-pressure  correction 
factor.  The  LAGRAN  subroutine  arguments  are: 

Subroutine  LAGRAN  (XA,  X,  Y,  N,  ANS) 

XA  -  Independent  variable 
X  -  X  array 
Y  -  Y  array 
N  -  Solution  Indicator 

-1  =  FLUIDF  Calculation 
0  =  Viscosity  Calculation 
>1  =  Degree  of  Interpolation 

ANS  -  Dependent  variable 


8.3.1  Math  Model.  LAGRANGES  interpolation  equation  is  used  in  this  sub¬ 
routine  to  calculate  the  dependent  variable.  The  LAGRANGE  formula  is: 


P(x)  =  X  L  (x)  y  (1) 

i=0 


Where : 


L^  (x)  is  the  Lagrange  multiplier  function. 

L.  (x)  .  (x-xQ)  (x-xx)  • •  •  (x-x1-;L)  (x-x1+1)---(x-xn)  (2) 

(xrV  (xi-xi)-'’(xrxi-i)  (xi-xi+i> * •  * <xi-*n> 

The  LAGRANGE  equation  generates  a  polynominal  between  two  lata  points. 
The  degree  of  the  polynominal  is  that  specified  by  the  index  value  N. 

The  dependent  variable  is  returned  as  ANS  in  the  subroutine  argument. 

An  ASTM  viscosity  equation  (See  Appendix  B)  is  used  in  the  calculation 
of  viscosity.  The  ASTM  charts  are  based  on  this  equation. 
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LOG  [LOG  (v+c)]  =  A  -  B  LOG  T 


(3) 


Where : 

c  =  a  constant 
T  =  Temperature,  "RANKINE 
v  =  Viscosity,  CENTISTOKES 
A,B  =  Constants  for  each  fluid 
LOG  =  Log  to  the  base  10 

The  computational  form  of  equation  (3)  is  explained  in  Appendix  B  along 
with  the  mathematical  formulation  for  the  FLUIDF  term. 

8.3.2  Assumptions .  The  Lagrangian  equation  generated  by  the  subroutine 
only  uses  the  data  points  around  the  dependent  variable  to  generate  a  poly- 
nominal  for  interpolation.  The  last  or  first  set  of  two  data  points  is  used 
for  extrapolation. 

8.3.3  Computation.  The  procedure  LAGRAN  performs,  whether  it  be  inter¬ 
polation  the  viscosity  or  the  FLUIDF  calculation,  is  always  recognized  by 
testing  the  N  argument  in  the  subroutine  statement.  If  N  is  equal  to  minus 
one,  then  the  FLUIDF  factor  is  calculated.  For  N  equal  to  zero  the  viscosity 
is  computed.  Otherwise  N  specifies  the  degree  of  interpolation  to  be  used 
by  the  Lagrange  formula.  All  results  are  returned  to  the  calling  program 
through  the  variable  named  ANS.  The  LAGRAN  interpolation  is  a  direct  appli¬ 
cation  of  equation  (1)  to  the  given  data. 

Before  evaluting  the  viscosity  equation  (3)  for  the  viscosity  value  at 
XA  temperature,  the  constants  A  and  B  must  be  calculated.  They  are  solved 
using  the  data  points  that  surround  the  dependent  variable,  or  the  first  or 
last  set  of  two  data  points  if  the  dependent  variable  lies  outside  the  range 
of  the  tabulated  data.  With  the  constants  calculated  for  this  fluid  the  vis¬ 
cosity  can  be  computed  from  Equation  (3). 
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8.3.4  Approximations  -  See  Appendix  B  for  a  more  thorough  discussion  on  the 
approximations  made  for  the  viscosity  and  FLUIDF  computations. 

8.3.5  Limitations  -  Since  the  Lagrange  method  only  uses  two  data  points  to 


interpolate  it  can  become  inaccurate  for  remotely  spaced  tabulated  data 
points.  Any  degree  of  interpolation  greater  than  two  can  lead  to  erroneous 
results. 

8.3.6  LAGRAN  Variable  Names 

Variable  Description  Dimensions 


A 

ANS 

B 

I,J 

N 


PROD 

PI 

P2 

T1 

T2 

X 

XA 

Y 


Constant  for  viscosity 
Dependent  variable 
Constant  for  viscosity 
Integer  counters 
Method  of  solution 

-1  *  FLUIDF  Calculation 
0  =  Viscosity  calculation 
>0  =  Degree  of  interpolation 
Lagrange  partial  product 
LOG  LOG  of  (Y (1)  +  C) 

LOG  LOG  of  (Y(2)  +  C) 

LOG  of  T(l) 

LOG  of  T(2) 

X-array 

Independent  variable 
Y-array 


CENTISTOKES 
CENTI STOKES 
°R 
°R 


The  other  data  variables  are  explained  in  Appendix  B. 


/ 

/ 
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8.3.7  LAGRAN  Subroutine  Listin, 


bUbKOU TINE  LAGKAn ( XA ,  X ,  Y  ,  N  , AN3 ) 

DI.'iLi'ioI  ON  X ( 1 )  ,Yf  1) 

I F  (  M  .  EQ  .  -  i )  GO  TO  6 
IF(N  .  tQ.0)GO  TO  4 
bUi-i=U  .  U 
OO  3  I  =  1 ,  N 
PKOD= Y  < I ) 

DO  2  J  =  1 ,  N 
A  =  X  <  1 ) -X ( J ) 

I F  f  A  )  1,2,1 

1  3= ( XA-X( J ) )/A 
PROD=  PROD*  3 

2  CONTINUE 

3  SUM=SUfl+PROD 
ANb=SUM 
RETURN 

V/I3C03ITY  CALCULATION 

4  CONTINUE 
A1  =  U  . 

I F  (  Y  ( 1 )  .LL.2.  )A1  =  EXP<-1.4  7-1.8  4*YM)-.51*Y(  1)**2) 
A2  =  0  . 

IFfYf 2) .LE.2.  )A2=EXP(-1.4"?-1 . 84  *  Y(  2)-.  51*Y(  2)**2) 
Pl*ALOGlUl ALOGlOf Y( l)+.7+Al) ) 

P2=AL0Gl0<  ALOClO{  Yf  2)-*-.‘1+A2)  ) 

i\l  =  AEOGiU [ X\ i)+4bU. ) 

T2=ALOGiU<  X( 2J+460. ) 

B*( P1-P2 )/( T2-T1) 

A=P1+B*T1 

Z=1U**( 1U**(A-B*ALOG1iH  XA+4bU. )  )  ) 

IF (Z. LE.2. 7) GO  To  5 

ANo=Z-.7 

RETURN 

5  ANb=f  Z-.7)-EXP(  -  .7  48'7-J.  29  5*  (  Z- .  ^  )  +  .  6  1 19*  (  Z- .  7  )  *  *2 
A-.  il93MZ-.7)**3) 

RETURN 

FbUIDF  CALCULATION 

6  CO  JTI.mUE 

Pi =ALOG 10 { ALOG1U ( Y  < 1 )  •*■ .  6  )  ) 

P2=ALOGiU ( ALOGIO ( Y  < 2 >  +  .6) ) 

Tl=ALOGiU(X/ lj+460. ) 

T2=ALOGiU(X' 2)+4bU. ) 

3*(P1-P2)A  T2-T1 ) 

A*  Pi +B*T1 

VU*lU*MlU**fA-3*ALOGiU(XA-M60.  )))-.(> 


8.3.7  (Continued) 


I'5=  10  *  *  <  <  .125989+A)/a)  * 

T10  00  =  10**n-.4'7'T159+A)/a) 

5  =  A  L  UG 1  U  (  (  Tb>)  /  10  0.+1.  )  -ALOC1  0  I  (T1000)/100.+l.) 
LLLX=b  5  .  1  U9  ''9*3 
o  =  b  .  b  3/  libLX 
I  F  I  3  .  LT  .  .  b  )  8  =  .  b 
I  F  <  8  . GT .1.07) 3= 1 . 0  ^ 

ALT  HA  =3. 23523-11. 3836*t>+13.1",35*3*S-4.8881*S*S 

BtTA=-5. 33425+19 .952 1*3-2 3. 94 48*3*3+10. 155*3*3 

CHI  =  3.  35452-13.  12',3*3-*-l'7  .  l'’12*3*S-"’.6551*S*S*3 

AfJ3  =  ALFUA  +  BLTA  *ALOG  10  (  VU  )  +CH I  *  ( ALOG 1 0  (  VO  )  )**2 

IFf  AN3.LT.  0.  )  Ai^3  =  0 

RETURN 

LNB 


8.4  SIMULT  SUBROUTINE 


SIHULT  is  a  subroutine  for  in-core  soluLion  of  large,  sparse  systems  of  linear 
equations  (Reference  A8) .  The  sub-program  employs  minimum  row  minimum  column 
elimination.  A  limited  number  of  zeros  is  stored  and  trivial  arithmetic  is  used 
to  preserve  computer  storage  and  to  reduce  the  time  required  for  solution.  SIMULT 
is  used  in  conjunction  with  CALC  to  obtain  the  system  flows  and  pressures. 

8.4.1  Solution  Method 

Excellent  discussions  on  the  Gauss-Jordan  elimination  technique  can  be  found 
in  many  numerical  analysis  textbooks.  Briefly  the  method  is  based  on  the  three 
elementary  row  operations: 

1.  Interchange  of  any  two  rows. 

2.  Multiplication  of  a  row  by  a  scalar. 

3.  Addition  of  a  multiple  of  one  row  to  another  row. 

For  example  by  applying  a  sequence  of  row  transformations  to  a  system  of  simult¬ 
aneous  equations 


llV  al2X2  +  •• 

.+ 

a.  x 
lm  m 

bi 

2 1 x  1  +  ;122x2  +‘  * 

.+ 

a  x  = 
l  m  m 

b2 

a  ,  x.  +  a  ,,x„+.  .  .+  a  x  = 
ml  1  m2  2  mm  m 


Expressed  in  augmented  form 


Yields 


all 

a12 

'  alm 

bi 

a21 

a22 

‘  a2m 

b2 

aml 

am2 

.  a 

mm 

b 

m 

s 

[■ 

:  x 

b 

m 
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where  I  is  the  identity  matrix  and  X  is  the  solution.  The  Gauss-Jordan  elimination 
technique  used  in  SIMULT  requires  elimination  of  only  the  elements  in  the  upper 
or  lower  triangular  partition  of  the  array  which  is  followed  by  a  back  substitu¬ 
tion  to  obtain  the  solution. 

Three  arrays  are  generated  that  contain  the  number  of  non-zero  elements 
in  each  row  (IRENTO),  the  number  of  non-zero  elements  in  each  column  (ICENT()) 
and  the  column  number  of  each  non-zero  element  (ICOL())  of  an  N  x  N  array.  These 
arrays  are  updated  each  time  an  element  is  eliminated  or  generated,  so  that  the 
current  row  and  column  count  and  element  location  are  available  for  pivot  selection 
and  row  addition. 

In  SIMULT  the  IRENT  array  is  searched  to  find  the  row  with  the  least  number 
of  non-zero  coefficients  that  has  not  been  previously  selected  as  the  pivotal  row. 
Should  two  or  more  rows  satisfy  this  criteria,  the  row  with  the  smallest  row  index 
is  selected.  Next  the  ICENT  array  is  searched  to  select  the  column  with  least 
number  of  entries.  In  the  event  that  two  or  more  columns  contain  the  same  number 
of  elements,  the  column  with  the  smallest  index  is  selected  as  the  pivotal  column. 

Each  row-column  selection  is  thus  used  in  the  back  substitution  to  obtain  the 
solution. 

8. A. 2  Assumptions  -  Not  applicable. 

8.4.3  Computation  -  Upon  entry  into  SIMULT  the  number  of  non-zero  elements  in 
each  column  and  row  of  the  M  x  M  solution  matrix  is  stored  in  ICENT(  )  and 
IRENT(  ).  At  this  point  the  remainder  of  the  program  is  contained  within  three 
nested  loops.  The  outer  loop  selects  a  new  pivotal  element  on  each  pass.  The 
pivot  element  is  stored  in  the  order  array  for  future  use  during  subsequent 
Iterations  iterations  in  the  CALC  program.  This  is  a  time  saving  device  to 
eliminate  the  necessity  of  selecting  the  same  sequence  of  pivot  elements  on  each 
iteration.  Once  the  pivotal  element  has  been  selected,  the  pivotal  row  is  normal- 
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ized  by  dividing  the  row  by  the  pivotal  element.  Since  the  pivotal  element  is 
normalized,  it  is  set  to  one  as  a  precaution  against  round-off  errors. 

The  second  loop  is  entered,  which  involves  a  row-by-row  search  for  rows 
containing  elements  in  the  pivotal  column.  If  the  number  of  entries  in  the 
pivotal  column  has  been  reduced  to  one  entry,  there  is  no  need  to  continue 
and  the  program  selects  a  new  pivotal  element.  Also  if  the  pivotal  row  is 
selected  all  further  tests  are  bypassed  and  the  next  row  is  selected  since 
operations  on  the  pivotal  row  are  not  permitted. 

Finally,  the  inner  loop  is  a  column-by-column  search  of  each  row  to  deter¬ 
mine  if  the  row  contains  the  pivotal  element.  At  this  point,  there  are  three 
alternatives  available: 

1.  If  the  column  index  in  the  row  being  searched  is  less  than  the 
pivotal  column,  it  is  necessary  to  continue  searching  the  row. 

2.  If  the  column  index  is  greater  than  the  pivotal  column,  the  row  does 

not  contain  the  pivotal  column  and  a  new  row  must  be  selected. 

3.  If  the  column  index  is  equal  to  the  pivotal  column,  the  row  contains 

the  pivotal  element  and  the  row  can  be  operated  on  by  the  pivotal  row. 

If  the  conditions  in  3  are  met,  the  pivotal  row  is  multiplied  by  the  negative 
of  the  element  in  the  pivotal  column  of  the  row  being  operated  on.  Then  the  two 
rows  are  added.  The  element  being  eliminated  is  simply  dropped  from  consideration 
by  moving  all  entries  to  its  right  one  space  to  the  left.  All  elements  remaining 
in  the  row  are  compared  to  ZTEST  to  see  if  any  elements  other  than  the  element  in 
the  pivotal  column  were  eliminated.  If  so,  the  row  was  further  compressed  to 
eliminate  the  zero  entry  from  the  row.  Finally,  the  row  is  tested  to  see  if  the 
row  count  is  zero  which  indicates  a  singularity.  If  a  singularity  is  encountered 
an  error  message  is  printed: 


*  SINGULAR  MATRIX-NO  SOLUTION* 


If  a  singularity  is  not  encountered,  the  program  continues  looping  until  a 
pivotal  element  has  been  selected  from  each  row  and  column,  at  this  point,  the 
solution  vector  is  stored  in  the  CALC2  array  in  a  scrambled  order.  The  solution 
is  then  unscrambled  and  stored  in  numerical  order  in  the  first  column  of  the 
A(  )  array. 

8.4.4  Approximations  -  In  situations  where  it  is  known  that  an  operation  will 
result  in  a  zero  or  a  one,  the  arithmetic  operation  is  bypassed  and  the  element 
simply  set  to  zero  or  one. 

8.4.5  Limitations  -  SIMULT  is  set  up  to  solve  only  sparse  systems  of  linear 
equations. 

8.4.6  SIMULT  Variable  Names 


Variable 

Description 

Dimension 

ATEST,  C 

Dummy  variables 

— 

CALC1 (  ) 

Matrix  of  coefficients 

— 

CALC 2 (  ) 

NU  matrix  of  constants 

— 

IC, 1 1 , IK 

Dummy  variables 

-- 

ICENT (  ) 

Array  containing  number  of  non-zero 
elements  in  each  column  of  CALC1 

— 

ICOL(  ) 

Array  containing  column  location  of  each 
non-zero  element  of  CALC1 

— 

IORDER(  ) 

Array  giving  pivot  selection  based  on 
min-row  min-column  criteria 

— 

IRENT (  ) 

Array  containing  number  of  non-zero 
elements  in  each  row  of  CALC1 

— 

ITER 

Iteration  count 

— 

IX, IY , J , JKL , JKOP , 
JKPI 

Dummy  variables 

— 

JCENT 

Array  identifying  the  number  of  non-zero 
entries  in  each  column  of  CALC1 

— 
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Variable 

JCOL 

JRENT 

LKJ.NAA, 

NPQ 

NU 

OP  ROW 
PIVCOL 
PIVROW 
X.ZTEST 


Description 


Dimension 


Array  identifying  the  non-zero  filled 
columns  of  CALC1 ;  the  rows  correspond  to  the 
rows  of  CALC1;  elements  in  each  row  corres¬ 
pond  to  column  number  in  each  row  of  CALC1 

Array  identifying  the  number  of  non-zero 
entries  in  each  row  of  CALC1 

NK  Dummy  variables 

Total  number  of  rows  in  array 


Number  of  equations 


Dummy 

variable 

— 

Pivot 

column 

— 

Pivot 

row 

— 

Dummy 

variables 

_ 
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8.4.7  SIMULT  Subroutine  Listing 

SUBROUTINE  SIMULT (  NU  ,  I'l'ER,  CALC  I  ,  CALC  2 , JCOL , JRENT , JCENT , I C  ENT , 
AlkENT , I ORDER , ICOL , NPQ ) 

DOUBLE  PRECISION  C,X 
INTEGER  PIVROo ,  PIVCOL  ,OPROW 

DIMENSION  CALC 1 ( 1 ) , CALC 211) ,  JCOLf 1 ) , JRENTf 1 ) , JCENT' 1 ) , ICOLf 1 ) 
DIMENSION  ICENT I  1)  , I RENT ( 1) .IORDER? 1 ) 

ZTEST=0 . 0 
NAA=  9 

C  BUILD  IKENT,  ICENT,  AND  ICOL 

DO  1  1=1, NU 
irent( i )=jkent(  i  ) 

ICENTf I)=JCENT(  1) 

DO  1  J=1 , 5 

1  ICOL(  I+( J-l) *NPQ) =JCOL(  I  +  (  J-l )  *NPQ) 

DO  24  LKJ=1,NU 

I F ( ITEk.NE. 1)  GO  TO  4 

IR=10U0U0 

DO  2  1=1, NU 

I F ( IRENT( I ) . GE . I K .OR. I RENT( I ) . LE . 0 ) GO  TO  2 
PIVKOn=I 
I K= I RENT( I ) 

2  CONTINUE 

I  OR  Dl,  R  (  LKJ)=PIVROn 
IK=100U0U 

I C  =  I R  EN  T  (  P I V  ROW  ) 

DO  3  1  =  1, IC 

I I  =  I C  0  L  f  PIVROl-*-'  1-1  )  *NPQ) 

I  F  ( IC  ENTf II)  . GE . I K .OR . IC  ENTf II)  . LF . 0 ) GO  TO  3 
PI VCOL= 1 1 
IK»ICENT< II ) 

I  Y=  I 

3  CONTI 4U  b 

I  OKU  b  rtf  LKJ+NPJ) = PIVCOL 
IORDLR'  LKJ+2*NPQ) =IY 
GO  TO  S 

4  P I  VkO**  =  I  ORDeK  '  LKJ  ) 

PI VCOL=1uRDeR' LKJ+NPO) 

I Y=IOKDEK(LKJ+2*NPQ) 

5  X=CALC l (  PIV..o/v+C  I  Y-l  )  * N P Q ) 

IC=  IlNb.Ml'f  P I  V  NON  ) 

DO  6  J  =  1 , IC 

b  CALC  1 ( PI VKOw+( J-l ) *NPQ) =CALC 1 ( PI VKOrt+ < J- 1 ) *NPQ) /X 
CAbClf  PIVROm-W  I Y-l )  *  N  P  Q )  =  1 .0 
CALC  2 ( Pi VkOm ) =CALC2 ( PIVRO* )/X 
DO  22  1=1, NU 

IFf ICENTf PIVCOL) .EQ. I ) GO  TO  23 
IF (I . EO.PIVKON)  GO  TO  22 
I C  =  I A  8S  f I a  ENT ( I )  ) 

DO  21  .J  =  1,IC 

I F  f ICOLf I  + ' J- 1 ) *NPQ) -PIVCOL)  2 1 , 7 , 22 
7  OPROw= I 
J  KOP= 1 
JKPi  =1 

C=— CALC 1 ( OPUOW+ ( J- 1 ) *NPQ) 
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.4.7  (Continued) 

X=CALC2f  PI VROW ) *C+CALC  2 ( OPROw ) 

CALC  2 ( OPROW ) =X 

8  CONTINUE 

IFf  ICOLf  PIVROv*+f  JKPI-1  )*[J?0)  .  EQ.O)  GO  TO  22 
If f ICOLf OPROw+( JKOP-l)*NPQ) .LQ.O)  GO  TO  9 

IFf ICOLf PIVRQw+f JKPI-1 ) *i4P  J) - ICOLf  OPROW + ( J KOP-1 ) *NPQ)  )  9,12, 
120 

9  IKENTf I)=IRENT(  I)+l 

IF ( TRENT f I ) .  LE. 0)  I RENT ( I)=IRENTf I ) -2 
11  =  IABS  f I  RENT f I)  ) 

Iff  1 1 . GT . NAA )wRITe(6,10) II 

10  FOkMAT(  10X  ,  ‘EXCEEDED  MAX  COLUMN  NUMBER*  ,110) 

I F ( 1 1 . GT . NAA) oTOP 

J  KL= J  KOP+ 1 

11  CONTINUE 
IA=II-1 

CALC 1 f 0PR0w+ ( 1 1-1 ) *NPQ) =CALC 1 ( OPROW+  (  Ix-l) *NPQ) 

ICOLf OPROw+( II-l) *NPQ)=ICOL(OPROw+f IX-1 ) *NPQ) 

II  =  IX 

IF(II.GE.JKL)  GO  TO  11 
X=CALC1(  PIv/KOw+f  JKPI-1 )  *NPQ)  *C 
CALC  1 ( OPROw+ ( JKOP-1 ) *NPQ) =X 

ICOLf OPROrt+f JKOP-1 )*NPQ) =ICOL( PI VROrt+( JKPI-1 )*NPQ) 

IX= ICOLf OPROw+f  JKOP-1 )  *N PQ) 

ICE  NT f IX )  =  ICENT( IX)+1 
GO  TO  19 

12  IX=ICOL(OPROW+(  JKOP-1)  *,NPQ) 

I F ( IX.EQ.PIVCOL)  GO  TO  13 

X=CALClf PI VROW+f JKPI-1 )*NPQ) *C+CALC If OPROW+f JKOP-1 )*NPQ) 
CALClf OPROn+( JKOP-1 )*NPQ)=X 
AT£ST=DAi33 f  X ) -ZTEST 
I F ( AT  ES  T . GT .0.0) GO  TO  19 

13  ICE NT ( IX)=ICENTf IX)-1 

I RENTf  OPkOm ) *  I RENTf OPROW) -1 
IFf IRENT(OPROW) )16,14,17 

14  CONTINUE 
wRITEf  b  ,  1  b  ) 

ib  FORMAT ( 10X, ‘SINGULAR  MATRIX-NO  SOLUTION*) 

STOP 

16  CONTINUE 

IKENTf OPROW )=I RENTf OPROw) +2 

17  IX=IAUS( IRENT( OPROw) ) 

DO  18  NK=JKOP , IX 

CALClf I+(NK-1) *NPQ) =CALC1( I+NK*NPQ) 

18  ICOLf I+(NK-1)*NP0)=ICJL( I  +  NK*NP<J) 

IX=IX+1 

ICOLf I  +  ( IX-1 ) *  NPQ) =0 

JKPI=JKPI+1 

GO  TO  8 

19  JKPI=JKPI+1 

20  J KOP=J KOP  +  1 
GO  TO  8 

21  CONTINUE 

22  CONTINUE 
2  J  CONTINUE 
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8 . 5  VISD  Subroutine 


The  VISD  subroutine  controls  the  computation  of  the  fluid  viscosity, 
density,  and  a  viscosity  pressure  correction  factor  at  the  system  operating 
temperature.  The  fluid  density  and  viscosity  are  also  calculated  for  a  temper¬ 
ature  of  I00°F.  The  VISD  subroutine  directs  the  proper  data  to  the  INTERF 
subroutine  which  actually  handles  the  calculation  procedure. 

8.5.1  Math  Model  -  Not  applicable 

8.5.2  Assumptions  -  Not  applicable 

8.5.3  Computations  -  The  first  call  to  INTERP  returns  with  the  fluid  density 
(DENS)  at  the  system  operating  temperature.  The  next  call  gives  the  density 
at  100°F  (D100) .  The  third  call  to  the  INTERP  subroutine  yields  the  FLUIDF 
term  which  is  a  viscosity-pressure  correction  factor.  A  DO  loop  is  set  up 
with  the  number  of  viscosity  data  points  NVIS  at  the  upper  parameter.  If 
the  system  temperature  is  the  same  as  the  input  viscosity  data  temperature 
input  by  the  user,  the  viscosity  is  taken  directly  from  the  input  data.  The 
same  applies  if  the  100°F  temperature  is  an  input  point.  If  either  tempera¬ 
ture  cannot  be  found  in  the  input  data,  INTERP  is  called  to  compute  the 
appropriate  viscosities.  Should  a  viscosity  value  ever  be  a  negative 
number,  which  could  result  t rom  erroneous  data  input,  IERROR  is  set  to  one 
and  program  control  is  passed  to  SFAN  where  an  error  message  is  output. 

8.5.4  Approximations  -  Not  applicable 

8.5.5  Llmi tatlons  -  The  parameters  computed  for  the  FLUIDF  term  rely  on  the 
user  input  viscosity-temperature  data.  An  erroneous  FLUIDF  factor  may  be 
calculated  if  extrapolation  outside  the  data  range  is  required. 

For  any  viscosity-pressure  correction  factors  that  are  computed  as  nega¬ 
tive  values,  FLUIDF  is  set  to  zero  and  thus  there  are  no  pressure  correction 
terms  used  in  the  program. 
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8.5.6  VISD  Variable  Names 


Variable  Description  Dimensions 

I  Current  Viscosity  Data  Point 

IERROR  Error  Indicator  - 

0  =  No  error 

1  =  Program  Termination 

IND  Interpolation  Indicator 

0  =  Normal  Interpolation 

1  =  Extrapolation  Outside  the 
range  of  data  points 

The  data  variables  stored  in  labeled  common  are  explained  in  the  Block 
Data  section  of  the  Main  Program  description. 


« 
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8.5.7 


VISD  Subroutine  Listing 


SUBROUTINE  VISD 
C  REVISED  MARCH  3,1975 

COMMON  /BLK1/TEMP, VISC, DENS ,0100 , PAMB , ALT , FLUIDF , FLUIDK ,V 100 
COMMON  /BLK2/VVISC(9) ,VT£MP(9) ,DDENS(2) ,DTEMP(2) ,NVIS 
COMMON  /BLK7/IERR0R 

CALL  INTERP( TEMP , DTEMP , DDENS ,10,2, DENS , IND) 

CALL  INTERP(100. .DTEMP, DDENS, 10,2, DiOO, IND) 

CALL  INTERP( TEMP , VTEMP , VVISC , 12, NV IS, FLU IDF, IND) 

DO  1  I-l.NVIS 

IF(TEMP.EQ. VTEMP( I) )VISC-VVISC(  I) 

IF ( VTEMP( I ) . Eg . 100 . ) V100-VVISC( I ) 

1  CONTINUE 

1F(VISC.NE.0.)G0  TO  2 

CALL  INTF.RP(TEMP , VTEMP , VVISC ,  11  ,NVIS , VISC , IND) 

2  IF( V100. NE . 0 . )G0  TO  3 

CALL  INTEKP( 100. , VTEMP .VVISC , 1 1 , NV I S , V100, IND) 

3  1F( VISC . GT .0 . .AND . V100. GT .0 . )R£TURN 
I ERROR- l 

RETURN 

END 
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8.6  DARR  Subroutine 


The  DARR  subroutine  is  used  in  conjunction  with  element  type  10  data 
stored  in  BRANCHP  array  to  provide  the  data  points  in  two  arrays  for  use 
by  the  INTERP  subroutine.  The  data  stored  in  BRANCHP  array  have  to  be  re¬ 
located  and  put  into  a  dummy  array  for  use  by  the  INTERP  subroutine  when 
a  pressure  drop  is  required  from  one  of  the  special  components. 

8.6.1  Math  Model 

Not  applicable. 

8.6.2  Assumptions 
Not  applicable. 

8.6.3  Computations 

Two  arrays  DARR1  and  DARR2  are  dimensioned  to  the  maximum  number  of  data 
points  for  any  one  element  in  the  special  element  array.  That  number  is 
brought  through  the  subroutine  argument  with  the  variable  name  M,  when  M 
is  greater  than  1.  The  row  location  in  the  BRANCHP  array  of  the  element 
is  K.  A  DO  loop  is  set  up  to  take  the  first  M  data  points  from  BRANCHP 
and  insert  them  into  the  DARR1  array.  Another  DO  loop  places  the  next  M 
data  points  into  the  DARR2  array.  These  two  arrays  with  the  special  element 
data  points  are  then  passed  back  to  the  calling  subroutine. 

8.6.4  Approximations 
Not  applicable. 

8.6.5  Limitations 
Not  applicable. 
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8.6.6  PARR  Variable  Names.. 


Variable 

Description 

Dimensions 

BRANCHP 

Dynamic  element  data  storage  array 

-- 

DARR1 

Dummy  array  containing  M  number  of  flow 
data  points 

GPM 

DARR2 

Dummy  array  containing  M  number  of 
pressure  data  points 

PSI 

I ,  IG , IH, II , J, J1 

Integer  counters 

— 

K 

Row  location  in  PEC10  array 

— 

M 

Number  of  data  points 

— 

NBP2 

Total  length  of  BRANCHP  array 

— 

The  description  of  the  information  stored  in  each  element  array  may 
be  found  in  the  individual  element  subroutines. 
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8.6.7  PARR  Subroutine  Listing 


SU3ROUTI  NE  DAKR  (  DARR1 ,  DARR2  ,  M  ,  K  ,  BRANCH  P  ,NBP2  ) 
DIMENSION  BKANCHP(  1)  ,  DARRl(M)  .DARR2M) 

IG=M+6 
1  =  1 

DO  1  J=7 , IG 

DARi\l(  I  )=BRANCHP(  K+J+NBP2) 

1  1=1+1 
11  =  1 
I H=M+ IG 
IG=IG+1 
DO  2  Jl=IG,Iri 

DARR2< I1)=3RANCHPI K+J 1+NBP2 ) 

2  11=11+1 
RETURN 
END 
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8.7  VCHEK  Subroutine 


When  the  system  is  initially  assembled,  a  flow  direction  is  assumed  for  the 
check  valve,  one  way  restrictor  and  relief  valve,  element  types  3,  31  and  33 
respectively.  The  check  valve  flow  is  initially  assumed  in  the  free  flow  direction, 
the  one  way  restrictor  in  the  restricted  flow  direction  and  the  relief  valve 
in  the  relief  flow  direction,  but  with  the  valve  closed.  This  is  done  for  stability 
during  the  system  balancing.  When  the  system  is  balanced,  a  call  to  VCHEK  checks 
to  see  that  the  assumed  flow  direction  was  correct.  If  the  assumed  flow  direction 
was  incorrect,  the  indicator  is  changed  in  the  element  data  array  to  use  resistance 
factors  for  flow  in  the  other  direction.  The  indicator,  IC,  is  then  given  a  value 
of  1  so  that  a  rebalance  of  the  system  will  again  be  done. 


8.7.1  VCHEK  Variable  Names 


Variables 

Description 

Dimensions 

81  EG 

General  purpose  array 

— 

BRANCHP 

Array  containing  dynamic  element  data 

— 

I 

Integer  counter 

— 

IC 

Indicator  to  rebalance  system 

— 

ILEP 

Array  containing  pressure  point 
numbers  at  end  of  each  leg 

— 

KC  ,LC 

Integer  counters 

— 

LEG 

Leg  number  (row  in  BLEG) 

— 

MC 

Integer  counter 

— 

ML 

Total  number  of  legs  in  system 

— 

NBP2 

Total  number  of  rows  in  BRANCHP  array 

— 

NL 

Total  number  of  rows  in  BLEG  and  ILEP 
arrays 

— 

NPQ 

Total  number  of  rows  in  PQL  array 

— 

PQL 

Array  containing  pressure  point  data 

— 

Q 

Leg  flow  rate 

— 

Ty 

Element  type 

_ 

8.7.2 


VCHEK  Subrout ine  List Ing 


SUBROUTINE  VC!1EK(ML  ,IC  ,  BRANCilP  ,NBP2  ,BLEG , NL , ILEP , PQL , NPQ) 
DIMENSION  PQL(  l )  , BRANC!IP(  1 )  , t>LEC(  1 )  ,  ILEP(  l ) 

MOO 

LOO 

KOO 

1  00  6  l=l,NBP2 
TY  =  BRANC'1P(  I) 

Ir(TY.Eg.0.)GO  TO  7 
LE0=iUANCllP(  I+20*NBP2  ) 

IK(TY.EQ.3. )G0  TO  2 
IF(TY.EQ.3l.)00  TO  3 
IF(TY . EO • 3  3 . )G0  TO  4 
GO  TO  6 

2  Q=BLKG(LEG+2*NL) 

I  K(BKAMCIIP(  I+7*NBP2)  .EQ.-l .  )G0  TO  6 

IE(tJ .GT .0 .  .AND .  BRANCH P(  I+6*NBP2 ) .EQ . 1 . )G0  TO  6 

I  F(Q .  L.T.  0.  .AND.  BKANCHP(  1+6* Nil P2  )  .EQ . 2  .  )G0  TO  6 

BRANCHP(I+7*NBP2)=-1. 

KG=KC+1 
GO  TO  6 

3  Q=BLEG(LEG+2*NL) 

Ir(BKANCUP(l+12*NBP2).EQ.-l.)GO  To  6 
1F(Q.GT.0.  .AND.»RANCltP(I+10*NBP2).EQ.l.)G0  TO  6 
IF( Q.  LT . 0 .  .AND .  BRANCH P(  I+10*NBP2 ) . EQ .2 . )G0  TO  6 
BRANCHP( 1+1 2*NBP2 )=-l . 

LC=LC+1 
GO  TO  6 

4  I K(BRANCUP( I+7*NBP2 ) . EQ.-l . )G0  TO  o 
IF(BKANCHP(I+7*NBP2).EQ.-l.)GO  TO  6 
IE(Q.GT.O. .AND.BRAMCHP(I+6*N»P2).EQ.l . )C0  TO  5 
IF(Q.LT .0 .  .AND.  BRANCIIP(  I+6*MBP2  )  .  EQ .  2 .  )G0  TO  5 
GO  TO  6 

5  IF(ABS(PQL( ILEP( I) )-PQL( ILEP( I+NL))) . LT. BUANCIIP( I+5*NBP2))GO  TO 
16 

3RAN'CIIP(  I+7*NBP2  )=-l . 

MC  =  i  1G+1 

6  CONTINUE 

7  CONTINUE 

IF (MG .GT.0.0R.LC.GT.0.0K.KC.GT.0)IC=1 

RETURN 

END 
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8.8  ACTCHEK  Subroutine 


ACTCHEK  subroutine  is  used  to  determine  whether  or  not  there  is 
cavitation  in  an  actuator.  The  system  is  allowed  to  initially  balance 
with  a  negative  pressure  in  an  actuator.  When  ACTCHEK  is  called,  a  check 
is  made  to  see  if  a  pressure  was  negative.  If  it  is  the  pressure  is  set  to 
0  psi  and  an  indicator  (IC  =  1)  is  passed  to  CALC  subroutine  to  indicate  a 
system  rebalance  is  necessary.  Additionally,  NPQL2  array  is  reset  to  include 
the  additional  fixed  pressure  point. 


8.8.1  ACTCHEK 
Variables 
BRANCHP 
IC 

INDEX 

J,J1 

KOUNT 

N 

NBP2 

NE 

NPQ 

NPQL2 

NR 

PCHECK 

PQL 

TEST 


Variable  Names 

Description 

Array  containing  dynamic  element  data 

Indicator  to  rebalance  system 

Pressure  point  number 

Integer  counters 

Row  location  in  PCHECK  array 

Branch  point  number  of  actuator 

Total  number  of  rows  in  BRANCHP  array 

Actuator  extend  pressure  point  number 

Total  number  of  rows  in  PQL  array 

Array  containing  fixed  pressure  point 
numbers 

Actuator  retract  pressure  point  number 
Dummy  array  for  actuator  data 
Array  containing  pressure  point  data 
Calculated  internal  actuator  pressure 


Dimensions 


PSIC 


263 


8.8.2  ACTCHEK  Subroutine  Listing 


SUBROUTINE  ACTCUEK( N , IC , BRANCH? , NBP2 , PQL ,NPQ) 
CtlECK  FOR  CAVITATION  IN  ACTUATORS 
DIMENSION  BRANCHP(l) ,PQL(l) 

COMMON  / BLK3/NPQL2( 20) , PQL2 (20) 

DIMENSION  PCHECK(25 , 5 ) 

K0UNT=0 

DO  3  J=1 , NBP2 

I F  (  BR  ANC11P  (  J ) .  NE .  4 .  )  CO  TO  3 

IF  ( BRANC!IP(  J+l 3*NBP2 )  .EQ.O.O)GO  TO  4 

NE.NR  ARE  PRESSURE  POINTS  FOR  ACTUATOR 
NE»BRANCUP(J+3*NUP2) 

NK=BRANCHP( J+4*NBP2 ) 

IF  (PQL(NE).GE. 0.0)00  TO  1 

CAVITATION  ON  EXTENDING  SIDE 
KOUNT-KOUNT+1 
PCHECK( KOUNT , 1 )=NE 
PCHECK( KOUNT, 2)*4. 

PCHECK( KOUNT  3)=PQL(NE) 

PCilECK(  KOUNT  ,4  )=1 . 

PCiiECK(  KOUNT,  5)*J 

WRITE( 6 , 2 ) ( PCUECK( KOUNT , K) ,K=I , 5) 

1  IF  (PQL(NIO.CE.O.O)GO  To  3 

CAVITATION  ON  RETRACTING  SIDE 
KOUNT=KOU NT+1 
PCUECK( KOUNT , I )*NR 
PCitECK(  KOUNT,  2  )  =  4 . 

PCHF.CK(  KOUNT  ,  3  )=PQL(  NR) 

PCIIECK(  KOUNT ,  4  )=-l . 

PCIIECK(  KOUNT,  5)»J 

NKI TK( 6 , 2 ) ( PCUECK( KOUNT , K) , K= 1 , 5) 

2  FORMAT( '  ',15H  PCtlECK  ARRAY  ,5F12.2) 

3  CONTINUE 

4  IF  ( KOUNT . EQ .0) RETURN 
TEST=0 . 

DO  5  J  =  l, KOUNT 

IF  (PCilF.CK(  J  ,  3 )  .GT .TEST )G0  TO  5 
TEST=PCilGCK(  J,  3) 

I  NDEX=*PCilKCK(  J  ,1) 

5  CONTINUE 
J1=N+1 

DO  6  J»Jl  ,20 

6  NPt)L2( J 1  )»0 
NP(^L2(N+1  )  =  INJEX 
P.)L(  INUEX)”0  ,001 
IC»1 

WRITK(6,7)(NPf)L2(K) ,K-I ,JI) 

7  FORMAT! '  ',1511  NPQL2  ARRAY  .5F12.2) 

RETURN 

END 
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8.9  FLOCHEK  SUBROUTINE 


Subroutine  FLOCHEK  is  used  to  test  the  type  37  flow  regulator  and  type  38 
orifice  sizer.  The  flow  regulator  is  tested  to  see  that  the  calculated  pressure 
difference  is  greater  than  zero  or  the  minimum  input  pressure.  If  the  pressure 
difference  is  less,  an  indicator, IC=1 , is  passed  back  to  CALC  subroutine  and 
another  indicator  is  passed  to  BRANCHP  subroutine.  The  BRANCH?  indicator  is 
used  bv  the  DVS034  dynamic  calculation  subroutine  to  indicate  that  a  different 
method  of  calculation  is  required  whether  or  not  a  system  rebalance  is  necessary. 

The  orifice  sizer  section  of  the  program  calculates  an  orifice  diameter 
for  the  input  flow  rate  in  the  leg.  The  pressure  drop  for  the  orifice  is 
calculated  under  dynamic  conditions.  If  the  input  flow  rate  is  too  high  and 
gives  a  negative  pressure  drop  calculation,  an  error  message  is  printed. 
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8.9.1  FLOCHEK  Variable  Names 


Variables 


Description 


Dimensions 


BLEG 

BRANCHP 

DP 

DPI 

I 

IC 

ILEP 

IP1 

IP2 


General  purpose  array 

Array  containing  dynamic  element  data 

Pressure  difference  from  inlet  to 
outlet  of  flow  regulator 

Minimum  pressure  difference  for 
rated  flow  through  flow  regulator 

Integer  counter 

Indicator  to  rebalance  system 

Array  containing  pressure  point 
numbers  at  end  of  each  leg 

Inlet  pressure  point  number  to  flow 
regulator 

Outlet  pressure  point  number  to  flow 
regulator 


PSID 


PSID 


ML 

NBP2 

NL 

NPQ 

PQL 


Total  number  of  legs  in  system 

Total  number  of  rows  in  BRANCHP  array 

Total  number  of  rows  in  BLEG  and  ILEP 
arrays 

Total  number  of  rows  in  PQL  array 
Array  containing  pressure  point  data 
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8.9.2  FLOCHEK  Subroutine  Listing; 


SUBROUTINE  FLOCHEK(  IC  ,  BRANCHP  ,  NBP2  ,  BLF.G  ,  NL ,  POL) 

DIMENSION  PQL( 1) ,BLEG( 1 ) , BRANCIU'C i ) 

COMMON  /BLKI/TEMP , VISC , DENS , DlOO , PAMB, ALT , FLU IDF , FLUIDK, VlOO 

DO  6  1=1 , NBP2 

TY»BRANCHP(I) 

IF ( BRANCHP( I) .EQ.O.)RETURN 
IF(TY.EQ  37. .OR.TY .EQ. 38 . )GO  TO  1 
GO  TO  6 

1  I P 1  =  BRANCHP ( 1+3  *  NB  P2 ) 

IP2=BRANCHP( I+4*NBP2 ) 

DP=“PQL(1P1)-PQL(  IP2) 

DPI  =BRANCHP( I+6*NBP2 ) 

LEG-BKANCHP( I+15*NL) 

IF ( DPI . LE .  DP)  BLEG(  LF.G+2*NL) =*BRANCHP(  I+5*NBP2  ) 

I F(TY .EQ . 38 . )GO  TO  2 

IF(DP1 . LE.DP)GO  TO  6 

IF ( BRANCHP (l+8*NBP2).EQ.l.) GO  TO  6 

BRANCHP ( I+8*NBP2 )  =  1 . 

IC-1 
GO  TO  6 

2  Q=BRANCHP(I+5*NBP2) 

IF( DP . LE .0 . )GO  TO  4 
PAVG=( PQL( IP1 )+PQL( IP2 ) )/ 2 . 

D£NP=( l+( PAVG/ 200000 . ) ) *DENS 

DI A-SQRT ( Q / ( 2  36 . * . 6*  SQRT ( DP/ DENP ) ) ) 

WRITE( 6 , 3 )BRANCHP( I+NBP2) ,DIA 

3  F0R!1AT(//'  ORIFICE  DIMETER  FOR  JCT  NO.  ',F4.0,'  =  ',F5.3//) 

GO  TO  6 

4  WRITE(6 ,  5)Q  . BRANCHP ( I-  NBP2 ) 

5  F0RMAT( / / '  ','***ERROR***CANNOT  SIZE  ORIFICE  FOR  THE  GI VEN' , / , 'FLO 
IRATE  OF  '  ,  F  8 . 2  , '  GPM  AT  JCT  NO.  ',F4.0 ,//) 

6  CONTINUE 
RETURN 
END 
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8.10  MTRCHK  SUBROUTINE 


Subroutine  MTRCHK  tests  BRANCHP  for  hydraulic  motors  after  a  system 
balance  is  made.  If  the  calculated  flow  through  the  motor  is  negative,  this 
is  an  abnormal  condition.  An  indicator  is  placed  in  BRANCHP  to  signal  the 
dvnamic  calculation  subroutine  DMTR8  that  a  different  calculation  method  is 
required.  An  indicator,  10=1,  is  passed  to  CALC  subroutine  to  indicate  a 
system  rebalance  is  required. 
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8.10.1  MTRCHK  Variable  Names 

Variable  Description  Dimension 

BRANCHP  Dynamic  element  data  storage  array 

I  Integer  counter 

IC  Indicator  to  CALC  subroutine  to  rebalance  system 

NBP2  Total  number  of  rows  in  BRANCHP  array 

Q  Flow  rate  GPM 

TY  Element  type 
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8.10.2  MTRCHK  Subroutine  Listing 


SUBROUTINE  MT:<CHK( BRANCHP ,NBP2  ,  IC) 
DIMENSION  BRANCHP( 1) 

DO  I  I-1.NBP2 

IF(BRANCI1P(I)  .EQ.O.  )RETURN 
TY’BRANCHP(I) 

IF(TY.NE.8.)G0  TO  1 
q=BRANCHP(  I+1 3*NiiP2  ) 

IF(Q.  L,T  .0 .  )BRANCHP(  I+14*NBP2)=1. 
IP(Q.LT.0.)IC-1 
1  CONTINUE 
RETURN 
END 
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8.11  Subroutine  GRAPH2  and  SCALED 


Subroutine  GRAPH2  plots  the  selected  junction  and  flow,  pressure  or 
actuator  position  versus  time.  The  user  can  select  the  scales  or  the  scales 
will  be  selected  from  SCALED  subroutine. 

8.11.1  GRAPH2  Variable  Names 


Variable 

I 

ICHART  (-) 
IPCHAR  (1) 
ISP 

ISPACE  (-) 
JJ 

LINE 

NPLTPT 

OMEGA  (-) 

XAX 

XDELTA 

XMAX 

XMIN 

Y 

YDELTA 

YLAST 

YLO 

YMAX 

YMIN 


Description 


Dimension 


Integer  counter 
X  and  Y  axis  write  characters 
Plot  character 
Integer  counter  for  Y  axis 

Temporary  variable  for  writing  X  and  Y  axis  scales 

T  , .  ,  .  JJ  =  0  Use  subroutine 

Indicator  for  setting  scales  SCALED 


JT  =  1  Use  input  valves 
Integer  counter  for  plot  line  number 
Number  of  points  per  plot 

Pump  speed  values  RPM 

Temporary  variable  for  writing  X  axis  scale  values 
X-axis  scale  increment  value 
Last  (highest)  X  axis  value 

First  (lowest)  X  axis  value  RPM 

Temporary  variable  -  Y  axis  scale  value 

Y-axis  scale  incremental  value 

Last  Y-axis  scale  value 

Lowest  value  in  YPLT  search  range 

Maximum  value  to  be  plotted 

Minimum  value  to  be  plotted 
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Variable 


Dimension 


-  Description 

YPLT  Array  of  value  to  be  plotted 

YUP  Highest  value  in  YPLT  search  range 

SCALED  Variable  Names 


Variable  Description 

AMAX  Maximum  value  to  be  plotted 

AMIN  Minimum  value  to  be  plotted 

Variable  used  to  calculate  Y  axis  scale  values 
IEMAX  Variable  used  to  calculate  Y  axis  scale  values 

ppXP  Variable  used  to  calculate  Y  axis  scale  values 

ITOP  Variable  used  to  calculate  Y  axis  scale  values 

-1  Integer  counter 

^AXT  Variable  used  to  calculate  Y  axis  scale  values 

RANGE  Range  of  values  to  be  plotted 

RMAX  Maximum  Y  axis  scale  value 

RMIN  Minimum  Y  axis  scale  value 

SCALE  (-)  Scale  factors  for  Y  axis 


Dimension 


RANGE 
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8.1]  2 


GRAPH2  Subroutine  Listing 


SU  BROUTI NE  GRAPH2 ( OMEGA , YPLT , MPLTPT , 


IPCHAR ,  J  J .  YMI N ,  YMAX  ,  XMI  N ,  XMAX ) 


DIMENSION  OMEGA( 125) ,YPLT( 125) , ISPACE( 101 ) , 
1XAX(6) ,1CHART(4) ,IPCHAR(1) 

DATA  ICilART / 1 HI , 1 H- , 1 H+ ,  1 H  / 

C - SCALE  X 

1F(JJ.EQ.1)G0  TO  3 
XMAX=OMEGA( 1 ) 

XMIN-XMAX 

DO  1  I-2.NPLTPT 

XMAX-AMAX  1  (  XMAX ,  0!1EGA(  I )  ) 

1  XMI  N- AM  IN'  1 ( XMI N , OMEC A ( I ) ) 

IF (XMAX. NE. XMI N) GO  TO  2 
XMAX-XMAX+50 . 

XMIN-XMIN-50. 

2  CALL  SC ALE D ( XMAX , XMI N ) 

3  XDELTA=(XMAX-XUIN) / 100  . 

IF(JJ.EQ.l)GO  TO  6 

C - FIND  Y-PARAMETERS 

4  YMAX=YPLT(  1  ) 

YMI N= YMAX 

DO  5  I-2.NPLTPT 
YMAX-AMAX 1 ( YMAX , YPLT( I ) ) 

5  ymin*amini(ymin,yplt(i)) 

CALL  SCALED ( YMAX , YM1N) 

IF(YMAX.NE.YMIN)GO  TO  6 
y:iax=y:iax+25. 

YMIN-YMIN-25. 

6  YDELTA=(YMAX-YMIN)/50. 

C  ADVANCE  TO  TOP  OF  NEXT  PAGE 
MRITE(6,7) 

7  FORMAT  ( 1  HI ) 

C - LOOP  FOR  EACH  PLOT  LINE 

Y-YMAX  +  Y  DELTA 

8  DO  27  LINE-1,  51 
YLAST-Y 
Y-Y-YOELTA 
YUP-Y+YDELTA/2 . 

YLO-YUP-YDELTA 

C  FIRST  +  LAST  CHARACTER  ON  LINE  -  *1* 

IS PACE ( l)-ICHART(l) 

ISPACE( 101 )-ICHART( 1 ) 

C  FIRST  +  LAST  LINES  ALL  *-*,  EXCEPT  *+*  IN  COL. 
IF(LINE.NE. 1 • AND. LINE. NE. 51)  GO  TO  12 

9  DO  11  ISP-2,100 

1F((1SP-1).EQ.(ISP-1)/10*10)G0  TO  10 
I SPACE ( ISP)-ICHART( 2) 

GO  TO  11 

10  ISPACE(ISP)«ICHART(3) 


11,21,31, ...81,91 
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8.11.2  (Continued) 


11  CONTINUE 
GO  TO  17 

C - INITIALIZE  COL. 2-100  OF  LINES  2-50  TO  *  * ,  OR  ** - *--*  IF  AX 

12  IF(Y.LE .0. .AND. YLAST.GT.O. )G0  TO  15 

13  DO  14  ISP-2,100 

14  ISPACE(ISP)«ICHART(4) 

GO  TO  17 

15  DO  16  ISP-2,100 
ISPACE(ISP)«ICHART(2) 

16  IF( ( ISP-1). EQ.( ISP-1)/ 10*10)ISPACE(ISP)-ICHART( 3) 

C - SEARCH  YPLT  FOR  VALUES  IN  RANGE  YLO . LT . Y PLT . GE . YUP 

17  DO  23  1-1,  NPLTPT 

IF(YPLT(I).GT.YLO  .AND.  YPLT(I) .LE. YUP) GO  TO  18 
GO  TO  23 

C - FIND  COLUMN  NEAREST  TO  I-TH  VALUE  OF  OMEGA 

18  ISP»(OMEGA(I)-XMIN)/XDELTA  +1.5 
IF ( ISP)  23,19,20 

19  ISP-1 

GO  TO  22 

20  IF (ISP-102) 2 2, 21 ,23 

21  ISP-101 

22  ISPACE( ISP)-IPCHAR( 1 ) 

23  CONTINUE 

- LINES  1,11,...  41,51  HAVE  Y-VALUES - THESE,  PLUS  LINES  6,16,26,3 

- +  46  ALSO  IL1VE  *+*  IN  COL  1+101  IF  NO  PLOT  CHARACTER  PRESENT 

IF( (LIME-1 ). NE . (LINK-1 )/ 5*5 )G0  TO  25 

IF( ISPACE( 1 ) .NE . IPCI1AK( 1 ) ) ISPACE( 1 )-ICHART( 3) 

IF(ISPACE(101).NE.IPCHAR(1))ISPACE(101)«ICHART(3) 

IF ( (LINE-1 ) .NE . (LINE-1 )/ 10* 10) GO  TO  25 

C - WRITE  PLOT  LINE 

WRITE(6,24)Y,  ISPACE 

24  FOR.' IAT ( '  ',1X,17X,F9.2,2X,101A1) 

GO  TO  27 

25  WRITE(6 ,26)ISPACE 

26  FORNAT('  '  ,  1X.28X ,  101A1 ) 

27  CONTINUE 

C - CALCULATE  +  PRINT  X-AXIS  VALUES 

28  DO  29  1-1,  6 

29  XAX(  I  )-XMIN  +  (  1-1  )*20.  *XI)ELTA 
WRITE(6 , 30)  XAX 

30  FORMAT ( '  ' , 1X.22X, 5( F9 .2 , 1 IX) ,F9 . 2) 

RETURN 

END 
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SCALED  Subroutine  Listing 


SUBROUTINE  SCALED ( RMAX , RMIN) 

DIMENSION  SCALE(6) 

DATA  SCALE/. 5,1. ,2. ,5. ,10. ,20./ 

RANGE-RMAX-RMIN 
AilAX-RMAX 
AtiIN=RMIN 
IEXP=AL0G10( RANGE) 

MANT-RANGE/10.**IEXP 

It'C  RANG  E .  GT .  MANT*  1 0 . *  * I EXP )  MANT-MANT+ 1 
GO  TO  (2, 3, 4, A, 4, 5, 5, 5,5,1), MANT 

1  MANT-1 
IEXP=IEXP+1 

2  J-2 

GO  TO  6 

3  J-3 

GO  TO  6 

4  J-4 

GO  TO  6 

5  J-5 

6  IEMAX-ALOGlO(RilAX) 

RMAX-INT(A.1AX/10.**IEMAX)*10.**IEMAX 

7  I F ( RM AX . GE . AMAX ) GO  TO  8 
R;iAX»RMAX+.05*SCALE(J)*10.**IEXP 
GO  TO  7 

8  RJ1IN»RMAX-SCALF.(J)*10.**IEXP 
IF(RMIN.LE .AMIN) GO  TO  9 
J-J+l 

IF(J.LT. 5-5)00  TO  8 
J-l 

IEXP-IEXP+1 
GO  TO  8 

9  IF(RMIN*ArlIN.CT.0.)G0  TO  10 
R.HIN-0. 

RHAX«SCALE(J)*10.**IEXP 

IF(RMAX.LT.SCALE(J-1)*10.**IEXP)RMAX-SCALE(J-1)*10.**IEXP 

10  IF(RMIN.LT.O.)CO  TO  11 
IF(R1'1IN.GT.  .l*RiiAX)GO  TO  11 
RMIN-O. 

RMAX«SCALE  (  J  )  *  1 0 .  *  *  IF.X  P 

IF(RllAX.LT.AilAX)RMAX-SCALE(J+l)*10.**IEXP 

RETURN 

11  ITOP-(RMAX-AMAX)/(.05*SCALE(J)*10.**IEXP) 
IB0T-(AMIN-RI1IN)/(.05*SCALF.(J)*10.**IEXP) 
IF(ITOP.EQ-IBOT)RETURN 

RMIN“RniN+IABS(( IT0P-IB0T)/2 )* .05*SCALE(J)*10 .**IEXP 

r:iax-rmin+scale(j)*io.**if.xp 

RETURN 

END 


8.12  QTCALC  Subroutine 

Subroutine  QTCAI C  is  used  when  running  in  the  quasi  transient  mode. 

8.12.1  Math  Model  -  Entry  to  OTCALC  is  based  on  whether  or  not  a  time  interval 
was  placed  in  QT15  array.  Upon  entry,  an  initial  calculation  is  made  to  determine  the 
time  step  required  to  produce  101  points  for  a  graph  output  plot.  If  no  time 
step  is  input,  a  default  value  of  100  time  steps  (101  data  points)  is  used. 

If  less  than  100  steps  are  called  for,  the  graph  plot  will  be  only  a  partial  plot. 

If  more  than  100  steps  are  required,  based  on  the  input  time  interval  and  time 
step  data,  only  101  points  will  be  saved  and  plotted.  These  points  are  spaced 
throughout  the  time  interval  and  the  storage  location  for  the  graph  plot  is  given 
as  the  integer  truncation  plus  1  as  follows: 

sp  _  Number  of  Time  Step  x  100  . 

Total  Number  of  Tii  Steps 


For  example  if  preliminary  calculation  showed  that  280  time  steps  would  be  taken 
during  the  quasi-transient  calculations  and  the  13th  time  step  was  taken,  the 
graph  storage  location  would  be  only  the  5th. 

13  x  100 


NTSP  = 


280 


+  1  =  5 


All  calculated  time  steps  are  output  in  tabulated  form  even  though  only  selected 
points  may  be  output  in  graph  form.  The  data  for  the  quasi-transient  run  is 
initialized  before  the  first  calculation  is  made.  A  check  is  made  of  the  quasi¬ 
transient  data  arrays  (QT16,  QT17  and  QT18)  to  determine  initial  component 
positions  and  other  parameters.  As  each  time  step  is  taken,  the  component  element 
parameters  are  updated  before  the  new  calculation  is  made.  The  update  of  the  parameters 
are  made  to  the  element  data  contained  in  BRANCHP  array  only.  Data  in  arrays 


2  7b 


QT16,  0T17  and  QT18  are  used  only  to  determine  which  data  is  to  be  placed  in 
BRANCHP  array  positions. 

8.12.2  Computations 

The  system  is  initially  balanced  at  time  zero  (t  =0).  Then,  time 
is  increased  one  time  step.  Using  the  initial  load  conditions  and  valve 
positions,  the  system  volume  changes  at  actuators  and  accumulators  are  calculated 
to  give  a  pertubat ion  to  the  system. 

Q  x  At  =  A  Volume  „  , 
o  0-1 


New  positions  for  actuators  and  accumulators  are  calculated.  Using  the 
new  positions,  average  loads  and  pressures  are  calculated  for  the  time  step. 


LOAD 


AVG 


L0ADq  +  LOAD^ 


P  +  P 

PAVG  " 


The  system  is  balanced  again  using  the  average  conditions  of  load  and  pressure. 

Final  volume  changes  are  calculated  which  give  the  system  volume  changes  for  the 
time  step.  If  a  valve  position  signal  changes  or  an  actuator  piston  bottoms 
somewhere  during  the  time  step,  the  calculation  is  used  only  for  that  part  of 
the  time  step.  Values  are  reinitialized  and  calculation  is  made  for  the  remainder 
of  the  time  step.  This  procedure  is  followed  until  all  time  steps  have  been  taken. 

At  the  beginning  of  each  time  step  flows  and  pressures  are  initialized;  therefore 
a  minimum  of  two  calls  to  CALC  subroutine  are  made.  A  description  of  quasi-transient 
data  output  is  given  in  Section  VII. 
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8.12.3  QTCALC  Variable  Names 
Variable 


Description  s 


Dimensions 


BLEG 

General  purpose  array 

— 

BRANCHP 

Dynamic  element  data  storage  array 

— 

CALC1 

Matrix  of  coefficients 

— 

CALC  2 

NU  matrix  of  constants 

— 

ICENT 

Array  containing  number  of  non-zero  elements 
in  each  column  of  CALC1 

— 

ICOL 

Array  containing  column  location  of  each 
non-zero  element  of  CALC1 

— 

IDIAG 

Array  which  identifies  which  columns  of 

CALC1  contain  positive  conductance  values 

— 

ILEP 

Array  of  leg  numbers  with  up  and  downstream 
pressure  points 

— 

INEG 

Array  which  stores  the  second  appearance 
of  a  negative  conductance  value 

— 

I ORDER 

Array  giving  pivot  selection  based  on 
min-row  min-column  criteria 

— 

IPQL2 

Integer  counter 

— 

IRENT 

Array  containing  number  of  non-zero  elements 
in  each  row  of  CALC1 

— 

JCENT 

Array  identifying  the  number  of  non-zero 
entries  in  each  column  of  CALC1 

— 

JCOL 

Array  identifying  the  non-zero  filled  columns 
of  CALC1;  the  rows  correspond  to  the  rows  of  CALC1 ; 
elements  in  each  row  correspond  to  column  number 
in  each  row  of  CALC1 

JEM 

Total  number  of  pressure  points  in  the  system 

— 

JNEO 

Array  which  identifies  which  column  in  CALC1 
contains  the  first  appearance  of  a  negative 
conductance  value  in  CALCl  array 

— 

2/8 


•:> 

'I 

•T 
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8.12.3 

(Continued) 

Variable 

Description 

Dimensions 

NBP 

Total  number  of  elements  in  BRANCHP  array 

— 

NBP2 

Total  length  of  BRANCHP  array 

— 

NL 

Total  length  of  BLEG  &  ILEP  array 

— 

NPQ 

Total  number  of  rows  in  PQL  array 

— 

NPQL2 

Array  containing  row  location  in  BRANCHP 
array  of  element  with  fixed  pressure 

-- 

N.16 

Length  of  QT16  array 

— 

N17 

Length  of  QT17  array 

— 

N18 

Length  of  QT18  array 

— 

N19 

Length  of  QT19  array 

— 

PAMB 

Atmospheric  ambient  pressure 

PSI 

PQL 

Array  containing  calculated  pressures, 
element  types  and  junction  numbers 

— 

PQL2 

Array  of  constant  pressure  point  junction 

— 

PRINT 

Array  containing  output  types 

— 

QT15 

Storage  array  for  quasi-transient  temperatures 

— 

0T16 

Storage  array  for  additional  element 
which  used  in  quasi-transient  calculations 

— 

QT17 

Storage  array  for  quasi-transient  valve  data 

— 

0T18 

Storage  array  for  quasi-transient  valve  data 

— 

QT19 

Storage  array  to  indicate  quasi-transient 
output 

— 
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8.12.4  QTCALC  Subroutine  Listing 


SU BROUTI.'JE  QTCALC(  BKANCrfP , NBP2  ,  PQL  ,  NPQ ,  BLEG  ,  J.LEP , NL  ,QT1 5  ,  QT16  , N1 6  , 
1QT17 , N17 , QT18 , N13 , QT19 . N19 ,ML ,N , JEM  ,CALC1 , JCOL  CALC2 , 

2JRENT, JCENT  ,  IDIAG  ,  JNEG  I  MEG  ,  I  RENT ,  ICENT ,  I  ORDER  ICOL ,  PQL2  ,  NPQL2  ) 
DIMENSION  AKl ( 7 ) ,AR2( 7 ) 

DIMENSION  CALC1( 1 ) ,CALC2( 1 ) , JCOL( 1 ) ; JRENT( 1 ) , JCENT( 1 ) , ICOL( 1 ) 
DISTENSION  IDIAG(  I  )  ,  JNEC(  1 )  ,  INEG(  1 )  , BRAN CMP (  1 ) 

DIMENSION  ICENT(  1 )  ,  IRENT(  1 )  ,  IORDER(  1 ) 

DIMENSION  BLEG(l) ,ILEP(1) ,PQL(1) 

DIMENSION  P0L2(1) ,NPQL2(1) 

DIMENSION  0X15(1) ,QT16( I ),QT17(1) ,QT18(1),QT19(I) 

TI=QT15(1) 

TF=QT15(2) 

DT=QT15(3) 

IF(DT . EQ.Q. )DT=(TF-TI) / LOO . 

TS=(TF-TI)/DT 

ITS-TS 

DO  9  1-1,1000 
IF(QTlo( I) . EQ .0 . )G0  TO  10 
IF(QT16(I).EQ.4.)GO  TO  1 
IF(QT16( I) . EQ . 7 . )G0  TO  6 
GO  TO  9 

1  AJCT-QT16( i+Nlb) 

DO  2  J=1 ,  NBP2 

IF(BRANCHP(J).EQ.0.)GO  TO  9 

IF(6RANGHP( J) .E<J.4 . . AND .BRANCKP( J+NBP2 ) .EQ.AJCT)GO  TO  3 

2  CONTINUE 
GO  TO  9 

3  STRP=BRANCHP(J-U0*NBP2) 

NP=QT16(I+2*Nlo) 

DO  4  K=1 ,7 
ARl(K)-0. 

4  AR2(K)-0. 

DO  5  NAR-l.NP 

ARl ( NAR ) =QT 1 6 ( 1+ ( 2+  NAK ) *N 1 6 ) 

5  AK  2 ( NAR ) -QT 1 b ( 1+ ( 2+NAR+NP) *N1 5 ) 

CALL  INTERP(STRP ,AR1 , AR2 , 10 , MP , ALOAu , I ) 

BRANOiP ( J+ 1 0*NBP2 ) -ALOAD 
GO  TO  9 

6  AJCT-QT16( I+NI6 ) 

DO  7  J-1.NBP2 

IF(BRANCHP( J)  .Ei)«0.  )GO  TO  9 

IF( BRANCHP( J ) .EO • 7 . ) . AND . BR.INCHP( J+NBP2 ) . EQ. AJCT)GO  TO  12 

7  CONTINUE 
GO  TO  9 

8  AVOL«QT16(I+2*N16) 

APRESS-QTl6(I43*Nlb) 

AMOV 1  -  BRANCHP  (  J-f  9 *  N  B  P2  ) 

AM0V2-BRANCHP( J+8*NBP2) 

AMGV  l-BRAi'ICHP(  J+5*NBP2 ) 


8.12.4  (Continued) 


CALL  TTL(ML,NL,DLEG  BRANCHP , NBP2  , ll.EP  , Pt)L , NPQ) 

C  00  887  1=1, ML 

C837  NKITE(6,999)( BLEG(  l+(  J-1)*NL)  ,  J=1 , 16) 

IF(IERKOR.GT.O) RETURN 
00  20  1Q=1,ML 
G=3L£C(IQ+5*NL) 

Q=ABS(  BLEU  (  IQ+2*NL)  ) 

20  BLF.G(IQ+5*NL)=Q/G 

C  BUILD  THE  UALC1  ARRAY 

DO  21  K-1,;IL 
I=ILEP(K) 

J=ILF.P(K+NL) 

L=IUIAG( I) 

LM-IDIAG(J) 

CALCl(l+(L-l)*NL)»CALCl(l+(  L~1  )*NL)+BLF.G(  K+5*N’I.) 

CALC1 ( J+(LM-1 )*NL)“CALC l( J+(LM-1 )*NL)+BLEG(  K+5*NL) 

L-JNEG(K) 

LM-INEG(K) 

IF  (L .NE .0)CALC 1 ( I+( L-l )*NL)=CALC1 ( I+( L-l )*KL)-BLEG( K+5*N’L) 

21  IF  (L:i.NF..0)CALCl(J+(L;t-l)*NL)=CALCl(J+(LM-l)*NL)-IJLF.G(E+5*?;L) 

C  BUILD  CALC 2  ARRAY 

Nl=N 

I F  (  N  P  Q  L2  (  X  +■  1 )  .  N  E .  0  )  N 1  -N+ 1 
DO  22  1= 1 , N 
1  l=KPgL2 (I) 

CALC1(I1)=1. 

22  CALC2 ( II )=PQL(  1 1  )-PQL(  1 1+NPQ) 

DU  23  1=1, JEM 

2  3  CALC2 ( I ) =CALC2( I )+PQL( I+NPQ) 

DO  24  1=1, ML 

!F( BLEC(  1+4* NL)  . EiJ.O .  )G0  TO  24 

CAI,C2(ILEP(  I)  )=CALC2(II.EP(  I)  )-BLI.G(  I+4*NL)*BLKC(  I+5*NL) 

CALC2(  1LLP(  I+f.’L)  )=CALC2(  ILEP(  I+NL)  )+BLEG(  I+4*KL)*P,LEG(  1+5*NL) 

24  CONTINUE 

Ir(NPQL2(N+l ) . EQ. 0 ) GO  TO  25 
J=N'PQL2(  N+l ) 

CALC2( J)=.001 

25  CALL  SIHULT(JEM,  ITER,  CALC  l ,  CALC  2  ,  JCOL ,  JRENT,  JCEiNT ,  I  CENT , 

1  TRENT , I ORDER , I COL ,NPQ) 

DO  26  IM=1 , JEM 
PQL( IM)=CALCl  (  IM) 

26  CONTINUE 

C  CALCULATE  NEW  FLOW  RATES 

DO  27  1T=  1  ,.nL 
IU-ILEP(IT) 

IV=ILEP(  IT+fJL) 

BLF.G(  IT+6*NL)  =  (  PQL(  IU)+BLEG(  IT+4*,;L)-PQL(  I V)  )*BLEG(  IT+5*NL) 

27  CONTINUE 

C  TEST  NEW  FLOW  RATES 

DO  31  IJ=1,;.L 
Q=BLEG( IJ+2*NL) 

QNEW=BLEG(IJ+6*NL) 

IF( ABS( (i-QNEW )  .  LF. .  TuL)GO  TO  31 
IF(ABS(g).GT.l.)GO  TO  28 
if(abs(')new)-li--1  .)«o  to  35 
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8.12.4  (Continued) 


28  IF(AilS(Q)  •CT.ABS(QlIEu)  )GO  TO  29 
QBIG-QNEW 

GO  TO  30 

29  QBIG-Q 

30  IF(ABS((Q-QNEW)/QBIG).GT.TOL)GO  TO  35 

31  CONTINUE 

IF( ITE R1 .GE . 1 )C0  TO  32 

ITERI-ITERI+1 

GO  TO  35 

32  CONTINUE 

00  33  1 7.-1  ,,-lL 
Q»BLEG(IZ+2*NL) 

II'(Q. EQ.O.  )iiLEG(  IZ+2*NL)= .00001 

33  CONTINUE 

IF( ITEK.GE .MAXITER)WRITE( 0,34) 

I F  ( IT  ER. .  GE .  i  iAXIT  ER  )  STOP 

34  FOK:iAT(10X,42HEXCEEDED  .TAX  NO  Of  ITERATION  S-CIIECK  SYSTEM) 
IC»0 

CALL  FL0CIILK(  IC  ,  BRANC.tP ,  K3P2 ,  BLEG ,  NL.PQL ) 

CALL  VCUEK( ML ,  IC  ,  BRANCHP  ,  NUP2  , oLEG ,  XL ,  ILF.P  ,  PQL ,  NPO  ) 

CALL  ACTCHCK(N , IC , BRANCHP , NBP2 , PQL , NPO ) 

CALL  MTRCUK(  ilRANCUP  ,NBP2  ,  IC) 

IF(IC.NE.0)G0  TO  I 
RETURN 

C  RECALCULATE  FLOW  RATES 

35  00  36  I-L.ML 
Q-BLEG(I+2*NL) 

QNEU=BLF.G(  1+6*  NL) 

BLEG( I+2*NL)-( Q+QNEV0/2 . 

IF(Q.EQ.O.  ) BLEG(  I+2*fIL)=  .00001 
30  CONTINUE 

IF( ITER -EQ . IIAXITF.RJGO  TO  32 

ITER-ITEK+1 

GO  TO  15 

END 
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1.0  INTRODUCTION 


The  creation  of  a  mathematical  model  to  define  a  physical  system  requires 
the  establishment  of  a  set  of  relationships  among  the  individual  elements  of 
the  system.  Operating  conditions  or  parameters  are  inserted  into  the  system 
model  which  responds  with  solutions  for  these  input  values.  The  actual  system 
often  may  not  be  described  by  textbook  relationships,  for  very  few  systems 
actually  model  the  book.  A  real-world  solution  must  be  found  that  involves 
solving  variables  sometimes  in  terms  of  these  same  variables.  This  type 
of  solution  procedure  is  ideally  suited  for  the  iterative  processes  of  the 
computer. 

The  mathematical  system  model  developed  for  SSFAN  solves  for  pressures 
and  flows  in  a  multiple-loop  aircraft  hydraulic  system.  Figure  A-l  is  a 
schematic  of  an  aircraft  landing  gear  subsystem  that  is  typically  solved  by 
the  math  model.  Figure  A-2  is  a  line  schematic  of  Figure  A-l  and  illustrates 
the  multiple-loop  complexity  (note  cross  branching)  that  is  relatively  common 
in  aircraft  hydraulic  systems.  Other  areas  of  concern  in  the  development  of 
a  good  system  mathematical  model  are  developing  good  element  models  for  the 
pumps,  actuators,  accumulators,  reservoirs,  and  other  elements  that  have 
variable  flow  vs  pressure  drop  characteristics.  In  a  simple  unbalanced 
actuator,  the  flow  and  pressure  gradients  are  calculated  through  area  ratios 
and  external  force  considerations .  A  math  model  may  handle  the  flow  dis¬ 
continuity  well,  but  not  the  pressure  one.  A  variable  delivery  pump  presents 
many  parameters  to  consider,  along  with  flow  in  and  out  of  the  ports.  These 
parameters  include  the  internal  leakage  of  the  pump  and  the  variation  of 
output  flow  with  pump  case  and  inlet  pressure,  including  the  decrease  of 
outlet  flow  when  the  pump  inlet  is  cavitating. 


2 . 0  SOLUTION  METHODS 


Two  analytical  techniques  were  evaluted  for  solution  of  the  multiple-loop 
flow  problem.  One  is  a  convergence  method  which  balances  pressure  drops  in 
simple  loops.  The  other  is  an  iterative  matrix  method  which  balances  flows 
at  branch  points. 

2. 1  Convergence  Method 

The  convergence  method  compares  two  legs  at  a  time  and  relies  on  prior 
calculation  of  values  to  arrive  at  new  values.  A  flow  division  is  assumed  at 
branches.  Individual  element  pressure  drops  along  one  leg  are  summed  and 
compared  with  the  pressure  drops  of  the  other  leg.  The  flows  are  changed 
and  new  comparisons  of  pressure  drops  are  made.  The  iteration  continues 
until  the  pressures  balance.  The  convergence  routine  starts  at  the  pump 
and  assumes  an  exact  flow  split  (Q0  =  Ql  +  Q2)  of  flow  combining  at  each 
branch  point  in  the  system.  The  initial  pump  flow  is  estimated.  The  con¬ 
vergence  is  begun  at  the  innermost  loop  in  the  system  and  iterated  outwardly. 
Convergence  is  accomplished  (see  Figure  A-3)  using  the  initial  flow  estimate 
split  at  Pi  and  changing  the  flows  in  legs  (1)  and  (2)  until  the  pressure 
drops  in  legs  (1)  and  (2)  balance  at  P2-  The  next  loop  to  balance  is 
(Pi  to  P4)  .  Using  the  initial  flow  split  of  legs  (3)  and  (5),  the  pressure 
drops  are  compared  from  (P3  to  P4).  If  these  do  not  balance,  a  new  flow 
split  is  assumed.  When  this  occurs,  the  (Pi  to  P3)  loop  has  to  be  rebalanced. 
Each  outer  loop  change  in  flow  requires  a  rebalance  of  all  inner  loops. 

Figure  A-4  represents  an  example  of  the  difficulty  involved  in  applying  this 
method  to  a  simple  system.  Two  legs  cannot  be  paired  before  one  branches  in 
with  another  leg.  Since  each  loop  is  balanced  separately,  redundant  com¬ 
putations  are  required;  therefore,  this  procedure  becomes  time  consuming. 
(Normally  with  this  technique,  one  loop  will  converge  in  about  7  iterations. 
For  a  complex  system  that  contains  20  loops,  7^®  or  approximately  8  x  10^6 
iterations  are  required.)  This  method  uses  a  Newton-Raphson  with  an  Atkins 
delta  squared  technique  for  convergence. 

2.2  Matrix  Method 


The  matrix  method  balances  flows  for  all  the  loops  at  one  time  through 
the  temporary  assumption  of  linear  resistance  for  each  leg  of  the  system. 

The  flow  rate  in  each  leg  is  changed  through  comparison  of  the  calculated 
flow  using  the  linear  resistance  and  matrix  solution  pressures  at  each  end 
with  the  actual  resistance  using  this  calculated  flow.  Iteration  continues 
until  the  flows  balance  at  all  branch  points. 

Balancing  system  flows  offers  much  more  flexibility  than  the  convergence 
method.  Each  leg  in  the  system  is  treated  independently,  allowing  one  to  set 
up  a  system  of  equations  to  solve  for  all  the  leg  flows  at  once.  The  problem 
of  pressure  discontinuities  may  be  handled  readily  by  insertion  of  the 
additional  pressure  rise  or  drop  to  the  specific  legs  where  these  step 
changes  in  pressure  apply. 

D.  G.  Michaels  used  this  technique  in  solution  of  multiple-loop  flow 
problems  of  low  pressure  systems.  (Reference (A-l) ).  The  transition  of  this 
technique  to  an  aircraft  high-pressure  closed-loop  hydraulic  system  presents 
many  problems.  The  simple  unbalanced  area  actuator  represents  a  flow  and 
pressure  discontinuity.  In  this  case,  the  pressure-in  is  converted  to  a  force 
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(1) 


to  move  the  load.  The  flow-out  is  proportional  to  the  flow- in,  but  does  not 
equal  it.  The  pressure-out  is  a  function  of  the  pressure-in,  the  internal 
friction,  and  the  actuator  external  load.  When  the  actuator  stalls  or  in 
some  conditions  reverses  itself  as  a  result  of  flight  loads,  the  flow  condi¬ 
tions  change.  These  problems  were  overcome  by  considering  the  actuator  to 
be  a  2  branch  point  model.  A  flow  gain  or  loss  term  is  added,  based  on  the 
direction  of  motion  of  the  piston  and  the  ratio  of  the  extend  and  retract 
areas  of  the  piston.  The  associated  pressure  gradient  is  applied  to  the 
internal  leg  of  the  actuator.  Figure  A-5  compares  an  actuator  to  its  SSFAN 
subroutine  model  equivalent. 


ACTUATOR  EXTENDING 


QLOSS 


BRANCH  POINT  REPRESENTATION 
FIGURE  A-5 


The  pressures  at  the  branch  points  represent  the  pressures  on  each 
side  of  the  actuator  piston.  The  Qloss  term  is  the  difference  between 
Q^n  and  Qout •  The  pressure  rise  or  loss  across  the  actuator  is  inserted 
in  the  internal  leg  of  the  actuator.  Other  prcblem  areas  in  the  flow 
balance  method  included  variable  delivery  pi'-  ps,  an  altitude-pressure 
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dependent  reservoir,  multiple  accumulators,  check  valves,  servo-actuators,  relief 
valves,  and  one-way  restrictors. 

The  steady- state  flow  problem  of  multiple-loop  hydraulic  systems  by 
definition  requires  the  variables  at  any  instant  of  time  to  be  directly  solvable. 
Solutions  to  these  variables  are  time  independent,  but  may  reflect  any  degree 
of  mathematical  complexity. 

The  solution  of  flows  in  a  hydraulic  system  requires  a  knowledge  of  the 
pressure  drop  characteristics  of  the  components  in  the  system.  The  key  to  the 
solution  of  the  flow  problem  using  the  matrix  technique  lies  in  instantaneously 
linearizing  these  characteristics  and  the  solving  for  a  leg  resistance  factor. 
Once  these  factors  are  known,  linear  equations  for  flow  may  be  written  at  the 
points  where  two  or  more  flows  meet.  A  system  of  n  equations  and  n  unknowns 
is  the  result.  Each  term  contains  only  one  unknown  to  the  first  power.  For 
more  than  three  unknowns,  this  defines  a  hyperplane  on  which  the  solutions 
to  the  system  lie.  These  n  values,  when  substituted  back  into  the  n  equations, 
satisfy  all  of  them  simultaneously. 

2.2.1  Solution  Technique 

The  actual  solution  development  requires  the  application  of  Bernouli's 
equation  and  the  equation  of  fluid  flow  continuity  to  arrive  at  a  resistance 
factor  (see  Ref.  (Al)  and  Section  3-2).  Conductance  is  defined  as  the 
inverse  of  resistance,  and  the  conductance  of  a  leg  times  the  pressure 
difference  between  the  two  leg  ends  yields  a  flow.  With  these  basic  facts, 
an  application  of  the  flow  continuity  equation  to  any  multiple  loop  system 
will  yield  a  system  of  simultaneous  linear  equations.  For  illustration, 
the  simple  system  in  Figure  A-6  is  developed. 
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FIGURE  A-6 
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One  can  write  an  equation  for  each  leg  in  the  system  based  on  conductance, 
pressure  drop,  and  flow.  For  Figure  A-6,  these  are: 


Leg  1  Qx  =  f'-1(p1-P2) 
Leg  2  Q2  =  C2(P2-P3) 
Leg  3  Q3  =  G3(P2-P3) 
Leg  4  Q4  =  G4(P3-P4) 


Where  Q  =  leg  flow 

G  =  leg  conductance 

P  =  pressure  at  the  corresponding  points 


(1) 


Applying  the  continuity  equation  in  terms  of  flow  to  each  pressure  point  in 
the  system,  one  may  write  the  following  equations: 

WV  =  0 

G1(P2'P1)  +  G2(P2"P3)  +  G3(P2-P3)  =  ° 

G2(P3_P2)  +  G3(P3-P2)  +  G4(P3_P4)  =  0 

o4(p4-p3)  =  0 

Rewriting  in  terms  of  pressure: 


PL  (+Gl)+  P2 ("Gi}  =  0 

p^-cp  +  p2(g1+g2+g3)  +  p3(-g2-g3)  =  0 

P2(-G2-G3)  +  P3(G2+G3+G4)  +  P4(-C4)  =  0 

p3(-g4)  +  p4(g4)  =  0 

Writing  the  set  of  equations  (3)  in  matrix  form: 


'G1 

-G1 

0 

0 

_P1 

0 

-G1 

Gl+G2+G3 

"G2“G3 

0 

P2 

0 

0 

~VG3 

G2+G3+G4 

-G4 

P3 

0 

0 

0 

"G4 

G4_ 

_P4_ 

0 

(3) 


(4) 


Examining  the  above  G  matrix,  one  notes  that  the  sum  of  the  elements  in  any 
column  equals  zero.  This  reflects  the  conditions  of  continuity  imposed  on  each 
pressure  point.  One  also  may  observe  the  symmetry  of  the  G  matrix.  Evaluating 
the  determinant  of  G  yields  a  value  of  zero.  The  G  matrix  is  singular.  Singu¬ 
lar  systems  have  their  application  in  eigenvalue  problems  and  consequently  no 
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unique  solution  exists  for  this  set  of  equations.  When  adequate  boundary  con¬ 
ditions  to  the  system  are  specified,  the  singularity  of  the  G  matrix  will  be 
removed  and  the  system  may  be  solved.  Before  boundary  conditions  are  imposed, 
note  that  the  diagonal  elements  are  all  positive.  This  follows  the  convention 
that  resistive  forces  act  in  a  positive  way  to  oppose  flow. 

One  must  select  reasonable  physical  constraints  for  an  operating  aircraft 
hydraulic  system.  Assume  point  1  in  Figure  A-6  to  be  the  pressure  port  of  a 
variable  delivery  pump  and  point  A  the  pressure  in  a  bootstrap  reservoir 
referenced  to  pump  out  pressure.  For  simplicity  a  constant  pressure  of  3000 
psi  at  point  1  and  50  psi  at  point  A  are  chosen.  Since  Pi  and  P4  are  now 
known,  a  new  set  of  equations  describing  the  system  may  be  written. 


Branch  point  equations  for  any  system  may  now  be  written 

where 

T  Gl  [Pj-Pj ±AP  1  -  l  ±  \  -  0  (5) 

L 

P  =  Pressure  at  branch  point  I 

Pj  =  Pressure  at  branch  point  J 

Q  l  =  Fixed  flow  rate  in  leg  L 
G  l  =  Fluid  conductance  in  leg  L 

AH  =  Fixed  pressure  change  in  leg  L 


For  the  sample  system  of  Figure  A-6,  these  equations  are: 


'G1 

-G1 

0 

0  ' 

P1 

_QrAPiGi+AP2G2 ' 

-G1 

g1+g2+g3 

-VG3 

0 

P2 

-Q9-ap2g2+ap3g3 

0 

"VS 

G2+g34€4 

-ga 

P3 

Q3  -ap2g24ap3g3 

0 

0 

-ga 

ga 

PA 

q4  -ap3g3+apag4 

Since  P^  and  P^  are  known,  the  equations  for  branch  points  1  and  A  are 
replaced  with  the  constant  pressure  equations: 

P1  =  3000  (7) 

P.  =  50 
A 


1 


29A 


With  these  equations  replaced,  the  final  array  appears  in  the  form: 


1 

0 

0 

0 

-  — 

P1 

3000 

”G1 

G1+  g2+  g3 

~G2~Gi 

0 

P2 

-G2~“iP2G2+‘^P3G3 

0 

-VG3 

g2+g3+g4 

-°4 

P3 

q3-ap2g2+ap3g3 

0 

0 

0 

1 

P4 

50 

(8) 


Examining  equation  (9),  one  may  note  how  fixed  pressure  rises  or  drops,  01 
constant  flows  are  accounted  for  in  this  method.  For  a  fixed  pressure  rise 
in  Leg  L  , APl  is  included  in  the  summing  of  conductances  around  a  branch 
point.  Constant  flows,  Ql  are  also  summed  around  the  specified  branch 
point  I. 

The  sign  used  for  Ql  depends  on  the  flow  direction  only.  The  sign 
for  aPl  depends  on  the  flow  direction  which  in  turn  defines  whether  the  term 
is  a  pressure  rise  or  drop.  If  flow  is  being  added  to  a  system  at  branch  point  I 
then  the  direction  of  Ql  is  positive.  For  a  pressure  drop  in  a  leg^ the  sign 
of  aPj  is  negative  for  an  upstream  branch  point  and  positive  for  the 
downstream  branch  point.  Applying  equation  (5)  to  every  branch  point,  one  may 
write  the  total  G  matrix  equation  for  a  system  of  branch  points  in  this  form: 

Where:  GP  =  K  (a) 

G  =  matrix  of  conductance  coefficients 

P  =  unknown  branch  point  pressures 

K  =  system  constants 

For  a  given  coefficient  matrix  and  constant  matrix,  the  problem  narrows  down 
to  finding  a  good  matrix  solution  technique. 

Many  methods  are  available  to  solve  systems  of  simultaneous  linear  equations 
Cramer's  rule  involving  determinants  is  one  of  them.  Briefly,  Cramer's  rule 
gives  solutions  for  the  variables  by  evaluating  determinants  resulting  from  the 
constant  terms  of  the  system,  and  constants  from  the  variable  terms.  For  large 
numbers  of  equations,  the  nth  determinant  is  evaluted  by  developing  a  row  or 
column  and  then  developing  each  cofactor  in  turn.  This  procedure  results  in 
n!  multiplications.  A  system  of  15  equations  would  require  15!  or  approxi¬ 
mately  10l2  multiplications.  Since  a  computer  can  do  about  10,000 
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multiplications  per  second,  it  would  take  a  little  less  than  4  years  to 
solve  a  system  of  15  equations.  Fortunately  other  solution  methods  exist 
that  are  simpler  and  less  time  consuming.  One  of  these  methods  is  Gauss-Jordan 
elimination  using  a  compressed  matrix  format.  This  method  is  used  in  the 
Calc  matrix  solution.  The  Gauss-Jordan  solution  process  (References  A2,  A3, 
and  A8)  is  eased  on  the  three  elementary  row  operations: 

1.  Interchange  any  two  rows 

2.  Multiplication  of  a  row  by  a  scalar 

3.  Addition  of  a  multiple  of  one  row  to  another  row. 

For  a  system  of  linear  equations 


nxi 

+ 

a12x2 

+ 

.  + 

a  x 
In  n 

l21xl 

+ 

a22x2 

+  . 

.  + 

a„  x 
2n  n 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

Wxi 

+ 

am2x2 

+  , 

•  + 

a  x 
inn  n 

or,  as  expressed  in  matrix  form 


•  • 

-  — 

r  -i 

all  a12  ’  '  aln 

xi 

b<i 

a21  al2  •  '  a2m 

CM 

X 

CM 

»  •  t  »  • 
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n 
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The  matrix  is  then  searched  to  find  the  row  with  the  minimum  number  of 
non-zero  elements.  If  two  or  more  rows  satisfy  this  criteria,  the  row 
with  the  smallest  index  is  selected.  After  the  pivotal  row  has  been  selected, 
the  columns  with  non-zero  entries  are  searched  and  the  column  with  the 
minimum  number  of  non-zero  entries  is  selected.  If  two  or  more  columns 
contain  the  same  number  of  elements,  the  column  with  the  smallest  number 
of  entries  is  selected. 

The  intersection  of  the  pivotal  row  and  column  define  one  element 
in  the  array,  the  pivotal  element.  The  pivotal  row  is  then  normalized 
by  dividing  it  by  the  pivotal  element.  The  rows  with  elements  in  the  pivotal 
column  are  then  selected.  The  pivotal  row  is  multiplied  by  the  negative 
of  the  element  in  the  pivotal  column  of  the  row  being  operated  on  and  the 
two  rows  are  added. 

After  all  the  elements  in  the  pivotal  column  other  than  the  pivotal 
element  are  eliminated,  a  new  pivotal  element  is  selected. 

After  a  pivotal  element  has  been  selected  from  each  row,  a  triangular 
matrix  is  obtained.  (A  triangular  matrix  is  a  square  matrix  that  has 
all  elements  either  above  or  below  the  main  diagonal).  The  tr iangularized 
system  appears  in  matrix  form  below: 


1  a’l2  •  *  a* In  " 

» 

X 
)— » 

j 

‘bh 

01  •  •  a'  2n 

X2 

n 

CNJ 

. 

. 

. 

0  0  .  .  1 

X 

n 

,b'n. 

or  writing  out  the  equations: 


x!  +  a12  *2  +  •  •  • 

.  .  a,  x  = 

In  n 

b' 

x0  +  .  .  . 

•  •  x  = 

b' 

2 

2n  n 

x  - 

b' 

n 
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Using  the  last  equation  which  determines  X  ,  substitute  It  in'  '  i*  next  t 
the  last  equation  to  determine  Xn_i  and  so  on  for  the  remaindt  ’f  tin 
equat ions . 

In  writing  the  SSFAN  program,  the  objec  Live  was  t  sol..  'nr.c  . 
sparse,  system  and  to  minimize  the  computer  storage-  and  time  required. 

This  was  accomplished  by  using  a  compressed  array  technique  which  stores 
a  minimum  number  of  zero  entries.  To  minimize  stoago,  a  p;.<o«.  selection 
method  that  produces  the  minimum  number  ot  nou-zer  entries  during  the  solution 
process  must  be  employed.  The  minimum  row-minimum  color.  •  pivot  selector 
has  been  shown  (reference  A8)  to  be  consistently  faster  and  redn.ee  fewer 
terms  than  other  pivot  selectors. 

The  compressed  matrix  technique  used  (reference  AS'  requires  the 
storing  of  a  minimum  of  zero  valued  entries  in  addition  to  the  non-zero  rerms. 
Since  any  pressure  point  in  the  SSFAN  program  has  at  most  four  connections, 
any  equation  will  have  at  most  five  non-zero  entries  (one  for  the  pressure 
point  and  one  for  each  of  the  four  connected  pressure  points.).  As  rows 
in  the  matrix  are  added  in  the  solution  process,  new  terms  can  be  generated 
to  provide  more  than  five  entries  in  any  one  row.  Experimenting  with  large, 
complex,  systems  ranging  up  to  58  pressure  points  has  shown  the  generation 
of  no  row  with  more  than  eight  non-zero  entries.  By  storing  onlv  8  entries 
in  each  row,  as  opposed  tc  58,  the  storing  of  50  zero  entries  per  row 
or  2900  total  entries  can  be  eliminated. 

The  compressed  matrix  technique  generates  and  uses  six  system  pressure 
point  identification  arrays.  Specifically ,  these  arrays  are: 

JCOL : 

1)  Dimension  (M,5) 

2)  The  final  JCOL  array  (in  compressed  form)  identifies  the  column- 
in  a  square  CALC1  array  which  arc  filled  with  non-zero  terms. 

The  rows  of  JCOL  correspond  to  the  rows  of  CALC1,  and  the 
elements  in  each  row  of  JCOL  correspond  to  the  column  number 

in  each  row  of  CALCl. 

3)  Note:  JCOL  describes  a  square  CALCl  array  in  order  1 o  be  compatible 
with  the  solution  technique  in  S1MULT. 

IDIAG : 

1)  Dimension  (M) 

2)  The  IDIAG  array  identifies  whi<h  columns  of  CALCl  contain  the 
positive  conductance  values.  IDIAG(l)  corresponds  to  the  column 

iu  which  the  positive  conductance  is  located  in  the  first  row  C  tec 
CALCl  array.  1DIAG(2)  corresponds  to  the  column  in  which  the 
positive  conductance  is  located  in  the  second  row  of  the  CALCl 
array. 
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JNEG: 


1)  Dimens  I  .  (ML  ) 

2)  The  JNEG  arrav  identifies  which  column  in  CALC1  contains  the  first 
appearance  of  a  negative  conductance  value  in  the  CALC1  array. 

For  example,  JNEG(4)  records  the  first  negative  conductance 

value  of  Leg  4.  If  JNEG(4)  =  3,  then  the  first  time  a  negative 

leg  4  conductance  appears  is  in  row  4,  column  3  of  the  CALCl  array. 

INEG: 

1)  Dimension  (ML) 

2)  The  INEG  array  differs  from  the  JNEG  array  only  in  one  respect, 
that  being  the  INEG  array  stores  the  second  appearance  of  a  negative 
conductance  value. 

JRENT : 

1)  Dimension  (M) 

2)  The  JRENT  array  identifies  the  number  of  non-zero  entries  in  each 
row  of  CALCl. 

JCENT : 

1)  Dimension  (M) 

2)  The  JCENT  array  identifies  the  number  of  non-zero  entries  in 
each  column  of  CALCl. 

3)  Note:  JCENT  describes  a  square  CALCl. 

To  understand  how  the  system  pressure  point  identification  arrays  are 
built,  the  example  system  of  Figure  A-7  is  developed  below. 
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I.  JCOI.  is  filled  with  column  numbers  that  contain  non-zero  entries  in  a  square- 
CAJ.Cl . 


C  STORE  NON-ZERO  COLUMN  NUMBERS  IN  JCOL 
DO  1001  K-l.ML 
I-ILEP(K,2) 

J*ILEP(K, 3) 

DO  1001  Kl-1,2 
Jl-I 

IF  (K1.EQ.2)J1-J 
DO  1001  K2-1.2 
J2-I 

IF  (K2.EQ.2)J2-J 
DO  1001  K-3-1,5 
J3"JCOL( Jl,K3) 

IF  <J3.NE.O)GO  TO  1001 

JC0L(J1,K3)-J2 

J2-0 

1001  IF  (J3.EQ.J2)J2«0 


1  2  3  A  5 


II.  Rows  with  constant  pressure  points  are  zeroed  and  the  diagonal  element 
saved . 


C  LORD  CONSTANT  PRESSURE  NODES  INTO  JCOL 
DO  1009  R-l.N 
I1-NPQL2(K) 

DO  1010  Jl-1,5 
1010  JCOL(I1,J1)-0 
1009  JC0L(I1,1)-I1 


JCOL 


1  2  3  A  5 
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III.  JRENT  and  JCENT  are  built.  JCOL  is  rearranged  so  its  entries  are 
in  increasing  order,  and  IDIAG  is  then  built. 


:  BUILD  JRENT, JCENT;  REORDER  JCOL;  BUILD  IDIAG 

DO  1002  K-l.M 

KOUNT-0  , 

DO  1011  F8-1.5 
DO  1011  F9-1.M 

1011  IF  (JCOL(F9,K8).EQ.F)KOUNT-FOUNT+l 

JCENT(F)-FOUNT  J 

KOUNT-O 

DO  1003  Kl-K.5 

1003  IF  (JCOL(F.Fl) .NE.O)FOUNT-FOUNT+1 
JRENTOO-KOUNT 

DO  1004  K2-1.KOUNT 

1004  D(F2)-JCOL(F,F2) 

DO  1005  K4-1.KOUNT 
TEST-0 

DO  1006  F5-1, FOUNT 

IF  (D(K5).LT.TEST)GO  TO  1006 

TEST-D(K5) 

TEST2-K5 
1006  CONTINUE 

F6-FOUNT+1-F4 
JCOL (K,K6) -TEST 

1005  D(TEST2)-0  . 

F7-JRENT(F) 

DO  1002  KOUNT-l , F7 

1002  IF  (JCOL(K, FOUNT) • EQ. K) IDIAG(F)-KOUNT 


JCENT  - 


JRENT 


IDIAG  - 


[1  4  4  3  4  3  3  4  3  2 
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IV.  JNEG  and  INEG  are  built  to  record  locations  of  off  diagonal  elements. 


C  BUILD  INEG, JNEG 
DO  1007  K-l.ML 

I- ILEPCF,  2)  “ 

J-ILEPCK, 3) 

II- JRENT(I) 

Jl-JRENT(J)  INEG 

INEG(K)-0 
JNEG(K)-0 

DO  1008  FOUNT- 1,11 

1008  IF  (JC0L(I, FOUNT). EQ. J) JNEG(F)-FOUNT 
DO  1007  FOUNT-1, J1 

1007  IF  (JC0L(J, FOUNT) .EQ. I) INEG(F)-KOUNT 


INEG  - 


20034443333543 


01121211112111 


The  JNEG,  INEG,  and  IDIAG  arrays  are  used  in  CALC  to  build  the  compressed 
CALC1  array.  The  compressed  CALC1  array  is  a  square  CALC  array  with  the  non¬ 
zero  terms  compressed  together  and  the  zero  entries  removed.  The  JCOL  array 
is  passed  to  SIMULT  to  be  used  in  the  solution  of  the  system.  The  JCOL  array 
is  copied  into  ICOL  in  the  SIMULT  routine  with  ICOL  being  updated  each  time  a 
row  operation  is  performed.  JRENT  and  JCENT  are  also  transferred  to  SIMULT  . 
to  be  used  in  the  selection  of  pivotal  elements. 

For  large  systems  of  equations,  considerable  roundoff  errors  may  occur 
in  the  solution  matrix  using  a  digital  computer.  In  SIMULT,  operations 
known  to  result  in  a  zero  or  one  are  bypassed  and  the  element  set  to  the  correct 
value.  Also  by  using  minimum  row-minimum  column  pivoting,  significantly 
fewer  eliminations  are  performed.  Roundoff  error  is  roughly  dependent  on 
the  square  root  of  the  number  of  operations  involved  in  the  elimination. 

Another  area  of  concern  in  the  solution  of  simultaneous  linear  equations 
is  truncation  errors.  By  the  use  of  double  precision,  more  accuracy  may  be 
obtained,  but  computation  time  and  computer  cost  become  greater  factors.  In 
SSFAN  the  pressure  drops  are  computed  based  on  a  flow  and  the  resistance  in 
each  leg.  CALC  computes  the  conductance  from  the  SSFAN  calculated  pressure 
drops.  The  accuracy  of  conductance  is  therefore  dependent  on  how  well  one 
modeled  the  element  flow  vs  pressure  drop  characteristics.  These  characteristics 
are  assembled  linearly  for  each  element  in  a  leg:  then,  given  a  flow,  a  con¬ 
ductance  term  results.  Refer  to  Section  6  for  a  further  discussion  of  this 
concept . 

2.2.2  Solution  Summary  and  Convergence  Criteria 

Applying  Gauss-Jordan  elimination  with  minimum  row-minimum  column  pivoting  to  the 
SSFAN  hydraulic  system  math  model  requires  an  iteration  technique.  The  physical  problem 
to  he  solved  involves  non-linear  values  of  system  resistances.  A  unique  solution 

exists  for  any  hydraulic  system.  To  find  this  solution,  one  first  initializes 
the  flows  in  the  system.  The  flow  estimates  are  substituted  into  the  equations 
that  represent  the  steady-state  pressure  drops  in  the  legs.  The  conductance 
value  is  then  computed  as  G  =  Q/DP.  This  procedure  is  followed  for  every  leg. 

The  values  or  leg  conductances  are  now  substituted  into  the  G  matrix,  which, 
combined  with  the  system  constants,  are  solved  through  Gauss-Jordan  elimination 
for  pressures  at  each  point  in  the  system.  A  new  pressure  drop  for  each  leg  is 
now  computed  using  the  new  calculated  values  of  pressure,  and  with  previous 
values  of  leg  conductance,  a  new  flow  estimate  is  made.  The  procedure  is 
repeated  until  the  old  flow  estimate  and  the  new  flow  estimate  are  within  a 
specified  tolerance  for  all  legs  in  the  system.  The  new  flow  estimate  used  to 
update  the  iteration  makes  this  method  converge  within  a  reasonable  number  of 
iterat ions . 

The  new  calculated  flow  from  the  matrix  solution  is  averaged  with  the  old 
flow  guess  to  yield  another  flow  guess  (Q')  or 

Q '  =  Qnew  +  Qold  ,  p 

2  ' 


From  a  computation  viewpoint,  one  may  readily  agree  to  the  simplicity  of 
this  procedure.  No  prior  values  of  flow  are  required;  only  the  corrected  value. 
There  are  faster  root  finding  convergence  methods  such  as  Newton's  or  Atkin's, 
but  these  may  also  diverge  under  certain  conditions.  Reference  A6  states  that 
the  method  of  bisection  or  interval  halving  technique  is  "guaranteed  to  locate 
a  root  of  the  equation".  Reference  A7  states  that  "The  greatest  virtue  of  the 
bisection  method  is  that  it  is  virtually  assured  to  converge  a  root".  A  few 
graphic  examples  will  serve  to  illustrate  the  validity  of  this  procedure. 

Consider  the  solution  of  the  flows  and  pressures  of  the  system  in 
Figure  A-6.  A  pressure  drop  relation  for  each  leg  in  the  system  may  be  written 
as : 

DP (I)  -  Kj  +  K2Q(I)  +  K3Q(I)L-75  +  K4Q  (I)2  (161 

wfv're  • 

DP  (I)  =  Pressure  drop  in  Leg  I 

Q(I)  =  Flow  in  Leg  I 

K^,  K2>  K^,  =  Leg  resistance  coefficients  for  laminar, 

transition  or  turbulent  flow 


Applying  Equation  (16)  to  Leg  (2)  of  Figure  A-6,  a  graph  of  pressure  drop 
vs  flow  may  be  plotted  (Figure  A-8) .  The  unique  solution  pressure  drop  in 
Leg  (2)  is  constant,  hence  the  straight  line  AP^  is  drawn.  Based  on  the  old 
flow  estimate  (Q  ) ,  a  new  flow  estimate  (Q-)  is  chosen  to  correspond  to  AP 
This  is  shown  graphically  by  drawing  a  resistance  line  R  through  the  origin' 
and  finding  the  point  where  R  crosses  the  AP12  line.  Tfiis  process  is  repeated 
to  yield  a  Q  and  so  on. 


One  notes  that  after  a  few  iterations,  the  flows  start  diverging.  Using 
the  correction  Equation  (15),  a  better  flow  guess  and  step  size  can  be  made. 

In  Figure  A-9,qi  is  calculated  in  the  same  manner  as  in  Figure  A-8,  the 
difference  now  being  that  instead  of  using  Q1  for  generating  a  resistance 
slope,  an  average  of  Q0  and  Qi  (Q0i )  is  used.  One  can  see  from  Figure  A-8 
that  this  procedure  converges  rapidly  to  a  solution,  not  only  for  Leg  (2), 
but  every  leg  in  the  system. 

Briefly,  the  solution  method  for  an  entire  system  will  follow  the 
procedure  below. 

(1)  An  initial  estimate  is  made  for  all  the  flows  in  the  system, 
as  was  done  for  leg  (2)  in  Figure  A-9.  This  yields  a  specific 
calculated  AP  for  each  leg. 

(2)  Knowing  this  AP  and  the  estimated  flow, calculate  a  conductance 
factor  for  each  leg. 

(3)  Insert  these  factors  and  system  constants  (as  APj^  In  Figure  A-8) 
in  equation  (10). 


,  I 

3 

i 


Ai 
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(4)  Solve  for  point  pressures  and  using  the  previous  calculated 
conductance  factors,  claculate  a  new  flow  (Q^  in  Figure  A -8) . 

(5)  Test  the  new  flow  for  convergence,  using  different  convergence 
criteria  for  flows  greater  than  one  GPM  than  for  flows  less  than 
one  GPM. 

(6)  If  these  convergence  criteria  are  not  met,  compute  a  corrected 

flow  (as  in  Figure  A-9)  for  each  leg  and  go  to  Step  (1)  and 

repeat,  using  the  flow  from  Step  (6).  The  flows  will  converge 
to  satisfy  each  leg's  characteristic  flow  pressure  drop  curve 
and  constant  characteristics. 

Different  methods  have  been  tried  to  weight  and  the  corrected  solution 
in  the  direction  of  the  new  flow  estimate,  but  none  works  as  well  as  this 
interval  halving  technique.  An  interval  is  found  that  contains  the  final 
solution  pressure  drop  value,  and  repeatedly  halved  until  the  solution  is  found. 

The  rate  of  convergence  of  the  interval-halving  method  is  dependent  on 
the  way  each  new  approximation  is  made.  The  interval  within  which  the  flow 
will  be  located  after  i  iterations  is  ( 1 / 2 > 1  times  the  original  interval, 
Reference  A5.  Thus,  the  error  in  the  ith  approximation  may  be  not  more  than 
(l/2)i  times  the  initial  interval  on  Q.  For  this  method  to  converge,  the 
pressure  drop  equation  (16)  must  be  single  valued  for  one  iteration  and  only 
one  value  of  flow  should  exist  in  the  initial  interval  (Reference  4) .  The 
solution  is  slightly  starting  value  dependent  but  for  the  range  of  flows  for 
aircraft  hydraulic  systems  an  initialization  of  10  gpm  has  been  included  in 
SSFAN.  Flow  initializations  of  less  than  one  and  greater  than  100  gpm  hive 
been  tried,  resulting  in  3  to  5  more  iterations  before  convergence. 

One  may  look  at  the  entire  mathematical  model  of  the  steady  state  flow 
system  as  being  divided  into  two  major  parts.  First  a  calculation  of  the 
pressure  drops  in  the  system  based  on  computer  estimated  flows  is  made,  then 
pressure  points  in  the  system  are  calculated  based  on  the  previous  pressure 
drops  which  give  the  conductance  values.  The  more  accurate  the  pressure  point 
values  from  the  Gauss-Jordan  elimination  method  with  pivoting  the  more  accurate 
the  flow  guesses  will  be,  and  the  better  the  solutions.  Thus  propagation 
error  does  play  an  important  role  in  this  procedure.  A  mistake  in  one  selec¬ 
tion  of  a  new  flow  may  have  its  effect  on  the  final  calculated  flows  in  the 
system  as  well  as  system  pressures.  A  ±.  1  allowable  error  tolerance  in  flow 
can  mean  a  ±10  psi  difference  in  pressures.  That  is  why  an  error  tolerance 
of  +.001  gpm  is  used  when  comparing  old  and  new  flows  for  final  convergence. 


306 


The  SSFAN  model  was  developed  to  solve  any  multiple-loop  aircraft  hydraulic 
system.  This  study  has  briefly  surveyed  the  methods  available  for  this  solution 
and  the  thought  behind  the  selecting  of  certain  procedures  over  others.  Also, 
the  methods  chosen  were  given  a  short  summary  to  present  their  main  attributes 
and  how  SSFAN  overcame  some  of  their  weaknesses.  The  solution  procedure  for 
writing  equations  was  presented  and  the  method  used  in  solving  this  system  of 
equations  was  illustrated.  Convergence  techniques  were  discussed  along  with 
the  part  computational  errors  played  in  this  iteration  process. 

The  development  of  any  mathematical  model  for  a  sophisticated  system  as 
an  aircraft  hydraulic  system,  requires  much  time  and  effort  to  arrive  at  a 
realistic  portrayal  of  the  actual  system.  The  model  once  verified  through 
actual  performance  test  data  must  be  flexible  enough  to  meet  the  requirements 
for  any  new  system  the  engineer  may  study. 
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APPENDIX  r, 


Fluid  Properties 

Viscosity  is  ore  of  the.  most  important  properties  of  the  fluid  from  the 
standpoint  of  the  steady  state  analysis.  Viscosity  is  the  internal  resistance 
to  movement  of  one  portion  of  a  liquid  in  relation  to  another.  Both  temperature 
and  pressure  affect  viscosity  and  are  taken  into  account  in  the  SSFAN  program. 

Viscosity  is  defined  by  Newton's  Law  which  states  that  at  a  given  point 
in  a  fluid,  the  shearing  stress  is  proportional  to  the  rate  of  shear. 

S  n  R  3  -  shearing  stress 

R  -  rate  of  shear 
n  -  coefficient  of  viscosity 

Fluids  which  flow  in  accordance  with  Newton's  Law  are  called  "Newtonian  Fluids" 
where  the  coefficient  of  viscosity  remains  constant  as  the  flow  rate  or  rate  of 
shear  is  varied.  IMs  applies  to  lamirar  flow  only. 

As  the  flow  rate  is  increased,  the  ratio  of  the  shearing  stress  to  rate 
of  shear  decreases  greatly  at  a  critical  point  where  the  fluid  flow  is  turbu¬ 
lent.  Hie  fluid  no  longer  behaves  in  Newtonian  fashion,  therefore  other 
relationships  for  the  coefficient  of  viscosity  have  to  be  utilized. 

A  tynical  Non-Newtonian  fluid  is  MIL-K-5606  fluid  ccmmonlv  used  in  Military 
Aircraft.  This  is  a  hydrocarbon  fluid  derived  from  petroleum  which  with  additives 
exhibits,  (1)  high  viscosity  index  to  give  operability  over  a  wide  temperature 
range,  (?)  resistance  to  oxidation,  (3)  good  wear  resisting  properties,  (4)  resis¬ 
tance  to  rust  and  to  foaming,  and  (5)  a  long  operational  lift. 

A  typical  Newtonian  fluid  is  MII-H-8328?  fluid  which  has  recently  had  limited 

usage  in  Military  Aircraft.  This  fluid  is  a  synthetic  hydrocarbon  and  with 

additives,  exhibits  characteristics  much  the  same  as  M1L-H-5606  except  that  the 

viscosity  at  low  temperatures  (-40^  and  below)  i no-eases  to  about  five  times 
that  of  MIL-H-5606, 
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The  Skydrol  500  fluids  are  another  example  of  a  Newtonian  fluid.  These 
are  based  on  phosphate  esters  containing  small  amounts  of  additives  to  give 
properties  required  by  commercial  or  transport  aircraft.  These  fluids  exhibit 
fire  resistance  and  were  designed  to  overcome  the  hazards  of  flammable  hydrau¬ 
lic  fluid  coming  in  contact  with  hot  brakes,  exhaust  manifolds  or  other  ignition 
sources  if  a  line  broke  or  a  leak  occurred. 

Viscosity-Temperature 

The  ASTM  chart  is  frequently  quoted  as  being  on  the  Walther  log  log 
formula.  This  statement  is  incorrect,  see  Reference  (Bl) ,  although  they  are 
similar  in  form.  MacCoull  published  a  chart  in  1921  using  the  log  log  relation¬ 
ship  plus  a  constant.  This  was  the  form 

log  log  (cSt  +  constant)  =  A  -  B  log  T  (1) 

His  study  resulted  in  selecting  0.7  as  the  constant  for  publication  in 
the  1927  International  Critical  Tables.  An  ASTM  committee  undertook  a  study 
of  the  chart  and  selected  .8  as  the  constant  for  its  first  chart  publication 
in  1932.  Their  report  credits  the  relationship  to  MacCoull.  The  ASTM  committee 
published  an  improved  chart  in  1937,  later  revised  in  1943,  in  which  a  constant 
of  .6  was  used  down  to  viscosities  of  1.5  centistokes.  This  chart  ASTM 
Designation  D341  was  used  until  1974.  In  1974  the  standard  was  revised  to 
ASTM  Designation  D341-74  to  "provide  a  significant  improvement  in  linearity 
over  charts  previously  available  under  method  D341-43,"  see  Reference  (B3) . 

It  is  noteworthy  that  the  constant  has  been  revised  back  to  .7  which  was 
MacCoull 's  original  constant  in  1927  and  his  equation  may  be  written 

log  log  (cSt  +  .7)  =  A  -  B  log  T  (2) 

The  Walther  equation  was  first  published  in  1928  without  the  constant. 

In  1931  a  constant  of  .8  was  added.  The  Walther  equation  has  continued  to  get 
extensive  use,  particularly  in  Europe.  The  new  ASTM  charts  of  1974  were 
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derived  with  computer  assistance  to  provide  linearity  over  greater  range 
on  the  basis  of  the  most  reliable  of  modern  data.  They  are  a.  up  for 
temperature  in  degrees  Celsius,  with  provisions  for  degrees  Rankine 
during  the  interim  period  of  changing  to  the  metric  system . 

The  complete  design  equation  for  the  chart  is  nor  useful  for  inter¬ 
calculations  of  kinematic  viscosity  and  temperature  over  the  full  chart  kinematic 
viscosity  range.  More  convenient  equations  which  agree  closely  with  the 
chart  scale  are  given  below.  Reference  (B2) .  These  are  necessary  when 
calculating  kinematic  viscosities  smaller  than  2.0  centistokes.  It  has  been 
demonstrated,  that  the  improved  chart  permits  reliable  linear  extrapolation 
into  low-viscosity,  high  temperature  regions  which  were  not  possible 
previously.  These  equations  are  used  for  calculating  viscosities  in  SSFAN. 

log  log  Z  =  A  -  B  log  T  (3) 

Z  =  v  +  .7  +  exp  (-l.47-l.84v-.51v2)  (4) 

v  =  [Z  -.7]  -exp(-. 7487-3. 295{Z-. 7]  (5) 

+  . 6119 [Z-.7]2-.3193[Z-,7]3) 

A  and  B  =  constants 

v  =  kinematic  Viscosity 
T  =  Temperature  °R 

Viscosity-Pressure 

The  viscosity  of  all  fluids  changes  with  pressure.  These  effects  are 
sometimes  neglected  in  low  pressure  systems  where  moderate  changes  in 
pressure  are  involved.  However,  for  better  analytical  accuracy,  these 
effects  should  be  included  in  the  analyses.  Petroleum  base  fluids  show 
an  appreciable  increase  in  viscosity  with  pressure. 

SSFAN  uses  the  following  equation  to  adjust  the  viscosity  at  higher 
pressures: 
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y  =  u  e 
P  o 


2.3  aaPxlO'4 


(6) 


=  kinematic  viscosity  (centistokes)  at  pressure  P 
UQ  =  kinematic  viscosity  (centistokes)  at  atmospheric  pressure 
P  a  pressure  in  Psig 

e  =  base  of  Napierian  logarithms  -=  2.718 
a  ■=  pressure  coefficient  of  viscosity  psig-^ 

a  •=  an  emperically  derived  temperature-dependent  exoonent 

°R 


Based  on  the  work  of  Professor  E.  Klause  at  Pennsylvania  State  University, 
the  pressure  coefficient  of  viscosity  for  a  number  of  fluids  were 
determined.  A  cross  reference  is  given  by  Professor  Klause  between  the 
ASTM  slope,  see  Figure  B-l  and  the  a  coefficient. 


The  slope  of  the  viscosity  curve  is  taken  from  Figure  B-2.  If  the 
viscosity  of  the  fluid  at  two  temperatures  of  a  fluid  is  known,  the  slope 
can  be  established.  The  viscosity  temperature  line  forms  an  angle  "A"  with 
the  lines  of  constant  viscosity.  The  tangent  of  "A"  is  the  slope  of  the  centi- 
stoke  viscosity-temne nature  line.  It  is  also  tty  vertical  distance  "Y"  along 
a  line  of  constant  temperature  in  inches  divided  by  the  horizontal  distance 
"X"  in  inches  measured  along  a  line  of  constant  viscosity. 

where:  AS'!V  Slooe  -  tanrent  A  =  Z  _ n  1 

X  (in) 

lope  values  would  obviously  be  negative,  but  are  ignored  by  convention.  See 
'■i pure  b-2  for  an  examole  of  ASH'  slope.  The  Figure  3-1  pressure  coefficient 
is  then  determined  using  an  atmospheric  viscosity  at  a  temperature  of  100°  F 
'or  the  slope  determine  from  Figure  fcy.?. 
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ASTM  STANDARD  VISCOSITY-TEMPERATURE  CHARTS 
FOR  LIQUID  PETROLEUM  PRODUCTS  ID  341) 
CHART  E  KINEMATIC  VISCOSITY  l0*  TEMPERA  TORE  RANGE 


FIGURE  U  -1 

4STM  VISCOSITY-TEMPERATURE  CHART 


Pressure  Coefficient  a.  psig 
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FIGURE  B-2 
FLUID  FACTOR  CHART 


Professor  Klause  developed  coefficients  for  various  ASTM  slope 
values  to  be  used  in  his  pressure  coefficient  equation. 

a  ■  A  +  B  log  VQ  +  C  (log  Vq)2  (7) 

where  A,  B  and  C  are  constants  at  the  various  slopes  as  shown  below. 

ASTM 


Slope 

A 

B 

C 

0.600 

0.0878 

0.2187 

-0.0009 

0.650 

0.0578 

0.2953 

-0.0176 

0.700 

0.0425 

0.3760 

-0.0395 

0.750 

0.0379 

0.4519 

-0.0626 

0.800 

0.0546 

0.5045 

-0.0809 

0.850 

0.0720 

0.5630 

-0.1046 

0.900 

0.0947 

0.6319 

-0.1368 

0.950 

0 . 1064 

0.7290 

-0.1863 

1.000 

0.1384 

0.8042 

-0.2364 

1.070 

0.1423 

1,0490 

-0.4186 

The  writer  then  undertook  the  task  to  develop  computer  equations  which 
calculate  first  the  ASTM  slope  between  two  adjacent  input  data  points, 

then  the  pressure  correction  coefficient.  It  may  be  recognized  that 

when  the  user  inputs  actual  fluid  viscosity-temperature  data  points,  these 
may  not  all  lie  on  the  theoretical  straight  line  of  the  ASTM  chart.  Therefore 
the  approach  for  finding  the  ASTM  slope  for  the  fluid  at  any  given  temperature 
is  to  take  the  input  viscosity-temperature  point  on  either  side  of  the  given 
temperature  and  in  this  region  use  the  slope  between  the  two  input  data 
points.  If  extrapolation  is  required  for  a  given  temperature,  the  2  input 
points  on  either  side  of  the  given  temperature  are  used  to  find  the  slope. 
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Professor  Klause'-  work  was  based  on  the  pre  1974  ASTM  charts; 
therefore  the  equations  for  pressure  correction  use  the  constant 
of  0.6. 

The  writer  selected  the  viscosity  range  of  5  centistokes  to  1000 
centistokes  to  calculate  the  reference  slope  because  this  is  the 
range  for  which  most  of  the  anticipated  work  would  occur.  However  any 
other  range  could  just  as  well  have  been  used.  Using  the  MacCoull 
equation  with  a  0.6  constant. 

log  log  (v  +  .6)  =  A  -  B  log  T  (8) 


log  -  logarithm  to  base  10 

v  -  kinematic  viscosity  in  centistokes 

A  and  B  -Constants 

T  -  Temperature  in  degrees  Rankine 

Using  the  2  input  data  points  on  either  side  of  the  given  temperature 
the  equation  is  solved  for  A  and  B  constants.  Since  viscosity  and  temperature 
are  known,  this  is  just  an  algebraic  solution  of  equation  (8). 

With  A  and  B  known,  the  equation  may  again  be  solved,  this  time  for  T. 

log  T  =  log  log  (v  +  .6)  +  A  (9) 


B 


OR  / 

I  (log  log  (v  +  .6)  +  A) 
T  =  10  \  B  > 


With  the  reference  values  for  viscosity  of  5  and  1000  centistokes,  this 
equation  becomes 


t5  =  10 


T1000  “  10 


|  .125989  +  A  | 
^-.477159  +  A  j 


(10) 


(11) 

(12) 


Using  an  ASTM  chart,  the  measured  AY  value  for  the  viscosity  difference  between 
5  and  1000  centistokes  is  6.65  inches. 
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An  equation  was  worked  out  for  distance  along  the  temperature  (X)  axis 


A  curve  fit  was  made  of  Professor  Klause's  A,  B  and  C  constants  versus 
ASTM  slope  as  defined  in  equation  (7) . 

These  are  as  follows: 

A  =  3. 23523-11. 3886xS+13.1735XS2-4.8881xS3 
B  =  5. 33425+19. 9521xS-23.9448xS2+10.155xS3 
C  =  3. 35452-13. 1273xS+17.1712xS2-7.6551xS3 
These  values  are  substituted  into  equation  (7)  along  with  the  atmospheric 
viscosity  for  calculation  of  the  pressure  coefficient.  The  equations 
developed  in  this  Appendix  B  are  the  basis  for  VISD,INTERP  and  LAGRAN 
subroutines . 
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ENERGY  LOSS  IN  TEES  AND  CROSSES 
AND 

RESISTANCE  IN  BENDS 


BY 

R.  E.  YOUNG 


PRESSURE  LOSS  IN  ELBOWS 
AND  DUCT  BRANCHES 
BY 

ANDREW  VAZSONYI 
APRIL  1944  ASME  TRANSACTIONS 


Energy  Loss  in  Tees  and  Crosses 


In  addition  to  the  normal  friction  losses  in  a  tee  or  cross  there  is  an 
additional  energy  loss  due  to  uniting  or  separating  the  fluid. 


The  jtotal  pressure  l$ss  will  depend  on  at  least  the  following 
quantities:  l 


(1) 

Pipe  diameters 

(3 

variables) 

(2) 

The  fluid  velocities  > 

(3 

variables) 

(3) 

The  angles  of  the  branches 

(2 

variables) 

(4) 

Roughness  of  walls  ■ 

\ 

(1 

variable) 

(5) 

Viscosity  of  the  fluid* 

/ 

/ 

a 

variable) 

Using  the  ccjprcinuity  equation^/and  similarity  consideration,  four  of  these 
variabj^S^can  be  eliminated  a'hd  the  remaining  six  can  be  listed  as  follows: 

(1)  Ratios  of  exit 'areas  to  inlet  (2  variables) 
area 

(2)  Ratio  of  velocities  in  2  of  (2  variables) 
the  pipes 
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(3) 

The  branching  angles 

(1 

variable) 

(4) 

Friction  factor 

(1 

variable) 

The  pressure  loss  due  to  friction  can  be  determined  using  the  friction  factor. 
The  pressure  loss  due  to  mixing  is  independent  of  the  wall  roughness.  The 
formulas  were  derived  for  the  mixing  loss  and  then  coefficients  were  added  to 
the  formulas  which  made  them  fit  test  data. 

The  following  equations  were  developed  to  predict  the  mixing  loss. 


Z  hQ1  =  AiVq  +  (2XX  -A2)  Vl 


SEPARATING  FLOW 
2 


2A.2  V0Vi  cos  a' 


2  h10  =  X3  V1 


UNITING  FLOW 

2  /V 1  QL  Q2 

V0  -2Vol  qJ  cos  8’  +  V2  cosy 


) 


Theory  of  Development  of  Equations 

The  loss  in  the  fitting  will  obviously  depend  on  the  wall  roughness 
besides  the  geometry  of  the  fitting.  By  dividing  the  losses  into  two  groups 
"friction  loss"  and  "mixing  loss",  a  general  equation  can  be  written 
expressing  these  quantities  for  flow  from  point  1  to  point  2. 


(1) 


(2) 


1  2  1  2  FiLiFi 

p  +  A  n  y  =  P  +ir,w^_| - L.  i-L. 

1  2  1  2  2  2  A 


FTP 
1  2  2  2  2 
—  p  v  +  —  - — — 
2^1  A„ 


(4) 

1 


(I) 


(II) 


(5) 


2  P  V2  +  hp  (hi) 


(1)  and  (2)  are  expressions  of  total  pressure  (static  +  dynamic)  at  points 
1  and  2  in  the  system.  (3)  and  (A)  are  expressions  for  the  friction  loss  and 
(5)  is  the  expression  for  the  mixing  loss.  It  should  be  noted  that  point  1 
is  normally  the  base  or  starting  point,  therefore  L^  in  expression  (3)  is  zero 
making  expression  (3)  zero.  The  friction  loss  is  then  expressed  by  (A)  using 
the  actual  center  line  length.  Equation  (III)  can  now  be  written  as: 


P  -P 
1  r  2 


+  hp 


Change  in 
Static 
Pressure 


Change  in 

Kinetic 

Pressure 


Friction  Loss  Mixing 
Loss 


(Ilia) 
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Experiment?  have  shown  that  mixing  loss  is  relatively  unaffected  by  a  change 
in  wall  roughness. 


The  mixing  loss  is  then  written  without  the  friction  loss  term. 

P  -p  2  2 

2  h  =  2  (  1  2)-  (V2  -V1  ) 


FIGURE  C-3 

Writing  the  momentum  equation  for  Figure  C-3  gives 


2  A1 

P. A.  +P  V.  —  cos  a 
11  1  A2 


P2A2  +°  V2 


V 

V 


2 

1 


P  -P  2  2 

1  2  =  V2  =  V2  =  VXV2  cos  a 

P 

2  h  =  2  V22  -  2V1V2  cos  -  V22  +  V:2 
2  2 

2  h  »  Vj  +  V2  ”  ^1^2  C0S  a 

Since  assumptions  have  been  made  in  deriving  this  equation,  it  is  probably  not 
exact  and  should  be  written  as: 

2  h  -  5  (V12  +  V22  -  2VX  V2  cos  a) 

where  5  is  an  experimental  coefficient.  The  elbow  acts  as  a  diffuser  and  little 
turbulence  occurs  in  the  passage.  Diffuser  losses  have  been  successfully 
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correlated  using  the  expression 
2  h  =  (1  -  n)  (V2  -  V:2) 
where  n  is  the  efficiency  of  the  diffuser. 

Combining  the  two  different  expressions  for  elbow  loss. 

2  h  =  5  (V^  +  V22  -  2VxV2  cos  a)  +  (1-n)  (V  *  -  Vj2) 
or 

2  h  =  \,V  ^  -  2XV1V2  cos  a  +  (2X-X4>  V2 

When  V2  =  0,  all  the  entering  kinetic  energy  will  be  dissipated  so  X^ 
The  branching  pipe  can  be  considered  as  2  elbows : 

FOR  SEPARATING  FLOW 


The  elbow  formula  is  applied  to  give: 

2  hoi  =  xivo2  +  (2xrV  V12  -  2Wi  cos  a' 

a'  is  the  average  angle 

Xj  and  X2  are  determined  experimentally 
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FOR  UNITING  FLOW 


The  momentum  equation  is  applied  to  the  leaving  section  with  the  inlet  pipes 

acting  as  diffusers  giving: 

2  2  V:Q7  V-Q- 

2  h10  =  X3V1  +  V0  “  2V0  <-4-  cos  B*  +  “o—  cos  y') 

0  yo 

The  equations  developed  above  can  be  used  for  any  angle  of  uniting  or  separating 
flow  with  the  aid  of  Figure  C-4  for  separating  flow  and  Figure  C-5  for  uniting  flow. 

Probably  the  most  common  section  used  for  separating  flow  and  uniting 
flow  in  fluid  systems  is  the  standard  tee.  For  this  type  of  fitting  the  above 
equations  can  be  simplified  for  a  given  application. 

SEPARATING  FLOW  FOR  STANDARD  TEE 
For  a  =  90°,  Xj  =  1.0  and  X2  =  0.9 

=  .85  a'  =  .85a  =  (.85)  (90")  =  76.5° 
cos  a'  =  cos  76.5°  =  .233 
Equation  I  can  be  written  as: 

2  h01  "  O)V02  +  (2(1)  -  .9)  V  2  -  2  (.9)  V  V  (.233) 


2  hM  ■  V02  ♦  1.1  -  .42  v0»j 


•5vo2+  '55  vi2 


.21  *QV 
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UNITING  FLOW  FOR  STANDARD  TEE 


For  3  and  y  =  90° 


X3  =  .6 


3'  y  ' 

7  -f  ‘  -85 


Y  ’ 


■85y  =  .853  =  .85  (90°)  =  76. 


cos  y  =  cos  3'  =  cos  76.5°  =  .233 


2  h!0  =  -6  V1  +  V 


Q1  V2Q2 
2  VQ  (Vl  -  (.233)  + 


(.233)) 


^0 


G<*78  02 70  30 

FIGURE  C-4 

USED  WITH  EQUATION  FOR  SPEARATING  FLOW 


1 
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Pressure  Loss  in  Branch  with  Uniting  Flow 


Effective  Angle  of  Deflection  as  a  Function 


0°  30°  60°  90°  120°  150°  180° 


/3and  7  GP7S  0270  31 


FIGURE  C-5 

USED  WITH  EQUATION  FOR  UNITING  FLOW 
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Resistance  of  Bends 


The  total  resistance  of  any  bend  is  comprised  of  two  parts.  The  first 
of  these  parts  is  a  frictional  resistance  due  to  the  length  of  the  bend  and  the 
second  part  is  an  energy  loss  due  to  the  change  in  flow  direction.  SSFAN  uses 
the  center  line  length  of  the  bent  tube  to  calculate  the  frictional  resistance 
of  the  tube.  This  is  accomplished  in  subroutine  SPORT. 

The  energy  loss  portion  of  a  tube's  resistance  is  due  to  three  factors: 
bend  angle,  severity  of  the  bend,  and  cross  sectional  configuration  of  the  bend. 
The  method  used  to  obtain  the  energy  loss  portion  of  a  tube  or  hose  resistance 
in  the  SSFAN  Program  is  obtained  from  Reference  Cl.  Reference  Cl  interrelates 
the  effect  of  each  energy  loss  factor  to  the  total  energy  loss  coefficient  of 
the  bend  through  the  simple  formula: 

f  -  Ax  +  Bi  +  Cl 

Where:  f  *  energy  loss  coefficient  of  the  bend 

Ai  =  effect  of  the  bend  angle 
=  effect  of  the  bend  severity 
Ci  =  effect  of  the  bend  cross  section 

SSFAN  models  energy  loss  coefficients  in  tubes  and  hoses  with  smooth  bends  of 
constant  circular  cross  section  through  use  of  the  above  formula.  The  coefficient 
of  each  bend  in  the  tube  or  hose  is  calculated  then  summed  with  the  coefficients 
of  the  other  bends  to  give  the  total  energy  loss  coefficient  of  the  element. 

Figure  C-l  illustrates  the  relationship  between  the  variable  Ai  and  the 
angle  of  bend  of  the  tube.  SSFAN  uses  a  computer  generated  fourth  degree 
polynomial  curve  fit  to  calculate  values  of  Ai  for  bends  of  180°  or  less  and 
approximates  the  contribution  of  bends  greater  than  180k'  by  the  linear  equation: 
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A1  =  1.39  +  (DEG, 180)  x  3.333  x  10r3 


BEND  ANGLE  (DEG) 

FIGURE  C-l 

Similarly,  calculation  of  the  variable  Bi  is  achieved  through  different 
equations  depending  upon  which  region  of  bend  ratio  (bend  radius/inside  dia) 
the  tube  bends  fall  in.  A  curve  fit  of  Figure  C-2  for  bend  ratios  between  1 
and  30  yields  the  power  function. 

-  49421 

=  .206982  x  Bend  Ratio  ’  * 

For  bend  ratios  between  30  and  50  the  relationship  is  given  by  the  equation 

Bx  =  .0385411  -  (Bend  Ratio  -  30)  x  .0004 


BEND  RATIO 
FIGURE  C-2 


If  no  bend  radius  for  the  tube  or  hose  is  input  on  the  element  data  card, 
the  default  value  of  the  bend  ratio  is  3.56  if  a  tube  is  being  calculated  and 
7.21  if  a  hose  is  under  consideration. 

Since  all  bends  are  assumed  to  be  of  constant  circular  cross  section,  the 
variable  requires  no  calculation  because  the  configuration  does  not  vary. 
Reference  A  shows  that  for  circular  cross  section  conduits 

C1  =  1.00 
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